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EXECUTIVE  SUMMARY 


OBJECTIVE 

The  object  was  the  development  of  the  FORTRAN  version  of  the  Navy  oceanic  vertical 
model  (NOVAM).  The  model  predicts  the  vertical  distribution  of  aerosol  in  the  first  6000  meters 
above  the  ocean, 

RESULTS 

The  NOVAM  was  developed  from  extensive  marine  aerosol  studies  from  different 
laboratories.  The  climax  was  a  multimenu-driven  interactive  program  that  allows  mouse 
selection  of  menu  items  needed  for  the  calculation.  It  includes  graphics  and  editing  capabilities 
useful  to  the  researcher.  When  used  with  an  appropriate  method  to  determine  the  profile 
parameters,  it  could  be  used  in  a  fully  automatic  mode  in  which  the  program  could  access  sets  of 
data  and  produce  an  analysis  of  the  data  sets  in  an  unattended  background  mode.  The  final 
NOVAM  code  is  intended,  however,  to  be  used  in  conjunction  with  a  LOWTRAN/MODTRAN 
program  and  to  supply  the  electro-optical  (EO)  propagation  characteristics  to  the  calling 
program  that  are  produced  by  the  unique  aerosol  found  in  the  marine  atmosphere.  It  is  written  in 
FORTRAN  so  it  can  be  integrated  into  LOWTRAN/MODTRAN  codes  to  improve  model 
performance  in  marine  environment. 

RECOMMENDATIONS 

The  model  has  several  shortcomings  that  will  be  addressed  in  future  modifications.  The 
region  of  applicability  leaves  two  areas  not  covered  well  by  the  model.  First,  higher  altitudes, 
various  models  developed  by  the  U.  S.  Air  Force  and  included  in  the  LOWTRAN/MODTRAN 
code  will  be  more  accurate.  Second,  propagation  paths  that  graze  the  sea  surface  or  pass  through 
the  region  within  a  meter  or  so  of  the  sea  surface  are  not  adequately  covered  by  NOVAM.  This 
problem  is  being  remedied  by  a  large-scale  experiment  off  the  Dutch  coast  sponsored  by  NATO. 
Another  shortcoming  is  the  limited  types  of  weather  situations  in  which  it  is  applicable. 
Advances  in  these  areas  await  development  of  models  from  the  basic  research  community  in  the 
future.  Another  area  of  concern  is  the  use  of  the  model  in  close-in  coastal  areas.  Compensation 
was  introduced,  but  experience  has  shown  this  is  one  of  the  weakest  parts  of  the  model.  It  is  the 
author’s  opinion  that  a  special  coastal  aerosol  model  needs  to  be  developed  that  will  adequately 
take  into  account  local  sources  of  aerosol. 
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INTRODUCTION 


The  need  for  a  model  to  accurately  describe  the  atmosphere’s  optical  and  infrared  (IR) 
properties  of  its  meteorological  state  has  been  an  important  driving  force  for  the  Navy’s  electro¬ 
optics  research  program.  Ideally,  this  model  should  describe  the  optical  and/or  IR  properties  of 
the  atmosphere  by  using  easily  obtained  meteorological  data  as  input.  Several  atmospheric 
“windows”  exist  in  the  molecular  absorption  of  the  electromagnetic  energy  through  which  trans¬ 
missions  in  IR  communication  can  take  place.  In  these  windows,  the  natural  atmospheric  aerosol 
plays  an  important  part  in  degrading  the  transmission  of  radiation  from  point  A  to  point  B.  This 
is  done  when  the  aerosol  both  scatters  and  absorbs  electromagnetic  energy.  Of  particular  interest 
to  the  Navy  is  the  role  natural  marine  aerosols  play  within  the  marine  boundary  layer  (MBL)  in 
causing  extinction  at  both  visible  and  IR  wavelengths. 

The  Navy  aerosol  model  (NAM)  was  developed  in  the  1980s  [1-3]  to  describe  the  marine 
aerosol  and  its  optical  and  IR  propagation  properties  for  the  atmosphere’s  MBL  from  the  local 
meteorological  parameters  at  shipboard  level.  IR  extinction  over  the  oceans  is  a  function  of 
various  meteorological  parameters  such  as  visibility,  absolute  humidity,  relative  humidity  (RH), 
and  wind.  The  optical  and  IR  properties  of  the  MBL  are  related  by  this  model  to  the  meteorolog¬ 
ical  quantities  that  are  measurable  from  a  shipboard  environment.  The  NAM  model  has  certain 
limitations,  however,  because  it  was  developed  from  a  limited  database  containing  only 
measurements  made  at  or  near  the  shipboard  level.  It  is  essentially  a  nondimensional  model  that 
contains  no  real  vertical  structure.  When  the  model  is  used  in  the  MBL  at  levels  away  from  the 
surface,  it  must  assume  that  the  MBL  is  extremely  well  mixed  and  that  the  size  distribution  of 
the  aerosol  within  this  layer  is  constant  from  the  sea  surface  to  the  top  of  the  MBL.  This  may  or 
may  not  be  a  good  assumption.  With  the  addition  of  other  types  of  observations  and  with  our 
growing  knowledge  of  the  mesoscale  properties  of  the  MBL,  it  is  now  possible  to  better  take  into 
account  the  vertical  structure  of  the  MBL  in  making  optical  and  IR  predictions. 

The  NOVAM  is  developed  from  extensive  marine  aerosol  studies  from  several  different  labo¬ 
ratories  including:  the  Naval  Command,  Control  and  Ocean  Surveillance  Center,  Research, 
Development,  Test  and  Evaluation  Division  (NRaD,  formerly  NOSQ,  San  Diego,  CA;  the  Naval 
Research  Laboratory, Washington  DC;  the  Naval  Post  Graduate  School,  Monterey,  CA;  and  the 
TNO  Physics  and  Electronics  Laboratory  (TNO-PEL)  The  Hague,  The  Netherlands. 

Several  preliminary  versions  of  NOVAM  were  developed  over  several  years  and  tested  for 
both  the  programming  integrity  and  the  physical  correctness  of  the  modeling  assumptions.  Thus, 
the  basic  concepts  of  NOVAM  have  been  programmed  in  several  computer  languages  as  the 
model  developed  with  time.  The  first  limited  versions  were  programmed  in  BASIC  but  when  the 
program  became  too  complex  for  a  BASIC  type  ianguage,  and  thus  too  slow  for  applications,  the 
code  was  converted  to  TURBO  Pascal  for  speedier  operation  on  a  typical  personal  computer 
(PC).  The  Pascal  programs  developed  into  a  user  friendly  PC  program  designed  to  exercise  the 
NOVAM  code  with  real  sets  of  data.  The  climax  of  this  development  was  a  multimenu-driven 
interactive  program  that  allows  mouse  selection  of  menu  items  needed  for  the  calculation.  It 
includes  graphics  and  editing  capabilities  that  are  useful  for  the  researcher.  This  program  uses  a 
semiautomatic  method  of  characterizing  the  atmospheric  profile  parameters  that  allows  greater 
operator  interaction  with  the  calculation.  When  used  with  an  appropriate  method  to  determine 
the  profile  parameters,  it  could  be  used  in  a  fully  automatic  mode  that  the  program  could  access 
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sets  of  data  and  produce  an  analysis  of  the  data  sets  in  an  unattended  background  mode.  The 
final  NOVAM  code  is  intended,  however,  to  be  used  in  conjunction  with  a 
LOWTRAN/MODTRAN  program  and  to  supply  the  EO  propagation  characteristics  to  the 
calling  program  that  are  produced  by  the  unique  aerosol  found  in  the  marine  atmosphere. 

As  a  result  of  this  evolutionary  development,  it  was  found  over  time  that  certain  aspects  of 
the  program  should  be  improved  and  others  perhaps  left  out  or  simplified.  The  current 
FORTRAN  subroutine  is  based  on  the  results  of  this  previous  work  and  testing.  It  is  written  in 
FORTRAN  so  it  can  be  easily  integrated  into  the  LOWTRAN/MODTRAN  codes  to  improve  the 
performance  of  these  models  in  the  marine  environment.  Being  a  subroutine,  it  is  no  longer  an 
interactive  program,  but  requires  a  certain  set  of  information  supplied  to  it  and  produces  a 
limited  utilitarian  output  needed  for  the  larger  scale  programs.  These  features  and  improvements 
'  are  incorporated  into  the  Navy  oceanic  vertical  aerosol  model  subroutine  (NOVAMSR)  code 
presented  here. 

To  meet  this  need,  NOVAM  was  changed  into  the  form  of  a  subroutine  written  in  the 
FORTRAN  language.  It  provides  information  on  the  optical  properties  of  the  aerosol  at  any 
altitude  and  wavelength  in  the  marine  atmosphere.  The  subroutine  gives  additional  information 
not  available  in  the  development  model.  In  addition  to  extinction  and  absorption  coefficients  at 
altitudes,  the  subroutine  returns  the  relative  humidity  and  the  set  of  lognormal  coefficients 
needed  to  reproduce  the  size  distribution  of  the  aerosol  from  which  other  characteristics  of  the 
aerosol  could  be  obtained,  such  as  the  phase  function.  The  NOVAMSR  is  also  an  intelligent  rou¬ 
tine  that  uses  as  input  a  radiosonde  profile  data  and  automatically  provides  the  significant  profile 
parameters  needed  for  the  NOVAM.  Thus,  the  calculation  can  be  done  completely  under 
machine  control  without  the  interaction  of  a  knowledgeable  operator. 

TESTING  THE  NOVAM  CONCEPTS 

The  NOVAM  concepts  have  been  tested  with  data  from  several  sets  of  field  experiments 
from  different  geographical  regions  of  the  world’s  oceans.  These  include  the  areas  off  the 
California  coast,  off  the  Florida  Keys,  and  off  the  Virginia  coast.  In  each  case  care  was  taken  to 
assure  that  the  air  mass  being  measured  was  marine  in  origin  and  not  freshly  blown  in  from  the 
nearby  coastal  regions.  In  all  of  these  experiments,  there  were  sufficient  me.eorological  measure¬ 
ments  taken  so  all  of  the  input  meteorological  data  needed  by  NOVAM  in  both  its  surface 
observation  file  and  the  radiosonde  observation  file  were  available.  This  included  a  certain 
amount  of  redundancy  in  measurements  to  assure  the  accuracy  and  determine  the  size  of  the 
error  bars  associated  with  them.  In  addition,  profiles  of  the  aerosol  size  distribution  were  mea¬ 
sured  and  these  data,  when  used  with  the  Mie  Theory,  allowed  profiles  of  “measured”  aerosol 
extinction  to  be  determined.  The  experiment  then  consisted  of  comparing  the  “measured”  and  the 
NOVAM  predicted  extinction  profiles  with  each  other  to  determine  if  NOVAJvl  was  indeed 
working.  It  was  determined  that  it  is  impossible  to  precisely  measure  the  extinction  profile  with 
present  day  techniques.  There  is  usually  a  sufficient  spread  in  “measured”  extinction  data  that  the 
best  that  could  be  determined  is  an  envelope  of  the  “measured”  data.  In  these  tests,  then,  when 
the  NOVAM  model  predicted  extinction  values  at  any  particular  altitude  that  was  within  the 
“measured”  envelope,  it  was  considered  a  successful  prediction. 

The  first  experiment  in  the  evaluation  process  was  in  conjunction  with  the  FIRE  experiment. 
FIRE  stands  for  f  irst  [International  Satellite  Cloud  Climatology  Project],  ISCCP  Eegional 
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Experiment.  This  was  a  series  of  profile  measurements  made  with  a  tethered  balloon  on  San 
Nicolas  Island,  CA.  [4,5,6]. 

The  second  experiment  was  done  in  the  semitropical  waters  to  the  east  of  the  Florida  Keys  in 
an  experiment  called  KEY-90.  [7,8,9,10].  In  this  experiment,  the  surface  observations  were 
made  with  an  instrumented  fishing  boat.  Meteorological  and  electro-optical  measurements  were 
made  with  aircraft,  balloons,  and  lidars. 

The  third  sets  of  measurements  were  made  with  aircraft  profiles  in  conjunction  with  the 
InfraRed  Analysis  Measurement  and  Modeling  Rrogram  (IRAMMP)  project.  Two  sets  of 
measurements  (1991  and  1992)  were  made  off  the  Virginia  coast  and  some  of  the  data  were  used 
to  test  the  ability  of  NOVAM  to  operate  in  the  western  Atlantic  scenario.  The  profile  data  in 
these  experiments  came  from  the  NRaD  instrumented  Navajo  aircraft,  while  the  surface  observa¬ 
tion  file  was  made  by  a  combination  of  available  data  obtained  from  shore  stations  and  other 
sources. 


THEORY 

This  version  of  NOVAM  recognizes  three  types  of  meteorological  profiles.  They  are  differ¬ 
entiated  by  the  characteristics  of  the  temperature  profile  in  terms  of  the  existence  or  nonexistence 
of  temperature  inversions.  Three  cases  recognized  by  NOVAM  are 

1.  No  inversion  The  free  convection  mode 

2.  Two  inversions  The  weak  convection  mode 

3.  One  inversion  The  developed  boundary  layer. 

The  NOVAM  is,  however,  an  aerosol  model  not  a  meteorological  model.  It  looks  at  the  mete¬ 
orological  data  and  then  estimates  what  is  happening  to  the  scalar  contaminants,  such  as  aerosol, 
and  how  they  are  transported  throughout  the  atmosphere.  The  optical  and  IR  properties  obtained 
from  this  model  describe  the  effects  due  to  the  aerosol  loading  of  the  atmosphere.  Molecular 
effects  are  well  described  with  other  types  of  models  such  as  LOWTRAN  or  MODTRAN  when 
they  are  operating  in  the  aerosol  “free”  mode.  These  effects  should  be  kept  in  mind  when 
comparing  the  total  extinction  measured  from  instruments  and  the  aerosol  extinction  due  to 
atmospheric  aerosol  and  molecular  extinction,  due  to  the  molecules  in  the  atmosphere.  Fortu¬ 
nately  the  molecular  composition  of  air  remains  relatively  fixed  with  respect  to  time  and  place 
(with  the  exception  of  water  vapor  which  can  be  easily  measured)  so  that  these  results  can  be 
well  known. 

The  model  does  not  attempt  to  describe  the  situations  within  clouds  if  they  exist  in  the  propa¬ 
gation  path.  The  sections  of  the  propagation  path  in  which  clouds  exist  (when  the  RH  approaches 
saturation),  a  separate  set  of  physical  laws  must  be  used  to  describe  the  properties  of  the  cloud. 

In  these  cases  a  separate  model  should  be  used  for  optical  and  IR  properties  within  clouds.  Like¬ 
wise,  if  precipitation  is  present,  the  model  cannot  describe  optical  and  IR  properties  from  the 
precipitation.  In  this  case,  the  additional  precipitation  effects  should  be  computed  using  an 
appropriate  precipitation  model. 

The  aerosol  size  distribution  has  been  represented  by  several  different  functional  forms  based 
on  the  intuition  of  several  different  investigators  over  the  years.  The  lognormal  type  functions 
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have  been  used  because  there  is  a  close  relationship  between  statistical  quantities  and  these  func¬ 
tions.  The  NAM  and  NOVAM  use  a  form  of  lognormal  that  differs  somewhat  from  other  pub¬ 
lished  forms  of  the  function.  The  reason  for  this  is  pragmatic  in  that  it  simplifies  working  with 
the  plotting  of  measured  data  on  log-log  plots  and  in  transforming  these  data  into  other  moments 
of  the  lognormal  for  emphasizing  important  aspects  of  the  data.  Davies  [11]  in  his  description  of 
an  aerosol  size  distribution  used  dN/dlogr  as  a  lognormal  function  that  has  the  form 

=  _J30W_  .  £xp 
dlogr  v2jt  •  log(CTg) 
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where  N  is  the  total  number  of  particles  per  cm3  in  the  population,  r  is  the  radius  of  the  particle, 
rm  is  the  median  radius,  and  log(Og)  is  the  standard  deviation  of  log(r).  Whereas  in  NAM, 
Gathman  [1,2&3],  and  here  in  the  NOVAM  formulation,  the  description  of  a  population  of  aero¬ 
sols  is  expressed  as  dN/dr  and  a  slightly  different  form  of  the  lognormal  is  used.  Here  it  is 
expressed  as 


-C  -  log2 


/' 


(2) 


These  two  expressions  are  related  to  each  other  by 

dN  _  1  .  dN  .  1 

dr  r  r/logr  log(10) 


This  transposition  influences  the  position  of  the  mode  radii  however.  In  the  first  equation,  the 
parameters  of  the  equation  are  statistical  parameters  of  the  population  of  aerosols.  In  the  latter 
equation,  the  parameters  have  graphical  significance  when  plotted  on  a  log-log  scale.  The 
parameter  A/f  is  the  amplitude  or  maximum  dN/dr  of  the  function, /is  a  swelling  factor  that 
represents  the  effect  of  RH  on  hygroscopic  aerosol,  tq  represents  the  mode  radius,  i.e.,  that 
radius  which  coincides  with  the  maximum  dN/dr  when /=  1  and  C  represents  the  “breadth"  of 
the  lognormal.  The  factor  / describes  the  change  in  size  of  the  particle  when  it  grows  or  shrinks 
in  different  RH  environments.  The  value  of  /  is  set  to  be  1  when  the  surrounding  RH  is  80%  (the 
mean  RH  found  over  the  ocean).  Thus,  it  is  only  important  when  the  surrounding  RH  differs 
from  the  mean  value  of  80%. 


The  relationship  between  the  two  forms  are  shown  to  be  equivalent  in  appendix  A  of  Smith 
and  Bates  [12].  Their  results  are  summarized  in  equations  (4)  and  (5)  and  express  the  NAM 
amplitude,  A,  and  width,  C  of  the  fUl  component  in  terms  of  the  statistical  properties  N,  ri0,  and  ag 
of  the  Davies  distribution. 


A.  = 


N 


v'2*  ’  rl0  •  log(<7g) 


exp 


-ilog2(ag) 


(4) 


C  = 


_ i _ 

2  logger*) 


Here  the  peak  value  in  NAM  is  A,//  and  is  at  the  place  w  here 

r  ~  1  mode  ~~  Mo  * 


(5) 

(6) 
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It  is  important  to  be  able  to  convert  between  various  moments  of  the  size  distribution.  This  is 
because  the  size  distribution  of  aerosol  can  be  expressed  as  dN/dXogr,  dNidr,  dN/dA,  or  dNldV 
where  A  and  V  are  the  area  and  volume  elements  of  the  derivative.  It  is  a  property  of  these  func¬ 
tions  that  can  be  easily  transformed  from  one  moment  to  another  and  still  be  represented  by  a 
basic  “lognormal”  type  of  function  described  by  different  coefficients. 

The  various  moments  of  the  lognormal  can  be  transformed  into  another  lognormal  form  by 
the  following  transformation.  This  handy  transformation  allows  conversion  of  data  into  other 
moments  of  the  lognormal. 

C1-rn  ■  exp^-C3  •  (log:(^)j j  =  C4  •  exp^-C3  •  (log2^)) j 

where  C4  =  C2  ■  rnQ  ■  exp^^g-j  and  ri  =  ro  ‘  •  (7) 

Here  n  is  an  integer  representing  the  moment  of  the  lognormal,  the  C’s  ,  tq  and  rq  are  constants 
and  r  is  the  variable. 

In  modeling  these  aerosols,  several  different  species  of  aerosol  are  recognized  and  are  each 
distinguished  here  by  their  own  “lognormal”  distribution.  The  net  effect  of  all  of  these  species  on 
the  aerosol  size  distribution  is  represented  by  the  sum  of  all  of  these  components.  This  modeling 
process  leaves  open  the  prospect  that  other  species  of  aerosol  might  be  present.  It  is  expected 
that  in  the  coastal  regions  and  other  special  places,  unique  populations  of  aerosol  exist  and  must 
be  represented  by  their  own  unique  size  distribution.  These  additional  elements  of  the  aerosol 
population  can  be  introduced  into  this  model  by  adding  additional  lognormal  or  other  types  of 
functions.  When  our  knowledge  is  expanded  as  to  the  characteristics  of  the  aerosol  in  coastal 
regions  and  areas  very  close  to  the  sea  surface,  additional  components  will  be  added  to  the 
current  description. 

The  single  lognormal  function  (as  seen  in  equation  (2))  is  described  by  four  parameters.  The 
amplitude  A  is  related  to  the  concentration  of  the  aerosol;  the  mode  radius,  tq,  refers  to  the  “size” 
of  the  most  populous  part  of  the  distribution  or  the  peak  of  the  distribution  at  an  RH  of  80%;  C 
refers  to  the  size  diversity  or  breadth  of  that  population;  and  the  factor  /  refers  to  the  growth  or 
shrinking  of  the  particle  size  at  relative  humidities  different  than  80%.  In  the  NAM  and  NOVAM 
series  of  models,  C  has  a  value  of  1  for  all  of  the  species  of  aerosol  used  and  mode  radii,  r$  of 
the  various  distributions  has  been  empirically  fixed  at  values  of  0.03  pm,  0.24  pm,  and  2.0  pm. 
The  factor  /  will  be  different  for  each  species  of  aerosol  depending  on  its  assumed  chemical  com¬ 
position  and  will  be  a  factot  of  the  surrounding  RH.  The  model  assumes  that  the  particles  are  all 
in  equilibrium  with  the  RH  of  its  surrounding  environment.  This  leaves  only  the  amplitude  fac¬ 
tors  A,  to  be  related  to  the  generation  and  distribution  processes  at  work  at  the  sea  surf?'  e  and  in 
the  marine  atmosphere.  The  A ,  parameters  are  the  key  factors  that  relate  aerosol  size  distribution 
as  it  changes  in  the  vertical  regions  of  the  atmosphere  to  the  meteorology  of  the  MBL.  The 
model  assumes  that  all  the  mixing  and  other  processes  at  work  on  the  aerosol  in  the  marine 
atmosphere  work  only  on  four  different  sized  aerosols  representing  the  four  size  distributions. 
Each  size  distribution  is  represented  by  a  single  size,  ro and  concentration.  A,,  with  an  /  factoi 
of  1  and  then  at  the  levels  of  interest,  the  full-size  distribution  is  expressed  by  these  factors  ano 
the  in  situ  RH  is  allow  -d  to  change  the  / factor  to  represent  the  size  distribution  at  that  altitude. 
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NOVAM  further  assumes  that  the  aerosol  size  distribution  is  correctly  described  by  NAM  at  the 
ship  level  above  the  sea  surface.  Then  the  spatial  distributions  of  the  aerosol  are  represented  by 
changes  from  this  surface  value. 


In  general  now,  the  size  distribution  of  NOVAM  at  the  altitude  z  is  repiesented  as 


dN(z) 

dr 


A,(z) 

/, 


' 

■ 

-  > 

- 

4. 

exp< 

-1  • 

log 

r 

► 

- 

IK,  •  fi)  J 

- 

(8) 


where  /  are  functions  of  the  RH.  The  values  of  roi  are  given  above,  and  the  k,  ’s  are  correction 
functions,  which  correct  the  surface  values  to  direct  measurements  of  visibility  and/or  IR  extinc¬ 
tion  when  available.  The  functioning  of  the  NOVAM  code  supplies  the  values  of  the  A,(;).  Now 
that  the  aerosol  size  distribution  is  known  at  the  altitude  z,  various  optical  parameters  can  be 
obtained  from  this  size  distribution. 


NOVAM  uses  the  index  of  refraction  of  water  from  Hale  and  Query  [13]  and  makes  an 
assumption  on  the  chemical  composition  of  each  of  the  four  aerosol  modes  in  the  model.  In  the 
smallest  size  classes,  two  chemical  species  of  both  soluble  and  nonsoluble  aerosol  are  allowed.  It 
is  known  that  the  chemical  composition  of  the  soluble  droplets  change  as  a  function  of  RH.  A 
perfectly  dry  particle  has  a  complex  index  of  refraction  of  the  nucleus  material.  On  the  other 
hand,  in  a  very  high  RH  environment,  a  hygroscopic  particle  will  have  changed  size,  taking  on  a 
considerable  amount  of  water  jvith  the  nucleus  being  dissolved  into  the  water.  The  net  complex 
index  of  refraction  used  in  the  Mie  calculations  for  NOVAM  is  then  assumed  to  be  the  volume 
average  of  the  index  of  refraction  of  water  and  the  index  of  refraction  of  the  nucleus  material 
using  the  method  of  Hanel  [14],  Each  of  the  classes  of  aerosol  in  the  model  are  allowed  to  have 
their  own  complex  index  of  refraction.  The  amount  of  growth  (represented  by  the  /factor)  for 
each  class  also  depends  on  the  chemical  composition  of  the  nucleus  of  that  class. 

The  first  class  is  a  nonsoluble  aerosol  present  in  NOVAM  only  when  high  amp  are  indicated 
and  is  assumed  to  be  dust  with  mode  radius  of  0.03  pm.  The  refractive  index  for  this  “dust” 
species  of  aerosol  is  taken  from  Shettle  and  Fenn  [15]  which  is  based  on  references  [16  &  17]. 
Since  this  component  is  assumed  to  be  aonsoluble,  this  class  of  aerosol  does  not  change  size 
with  changes  in  RH;  thus,  the  optical  refractive  index  parameter  remains  constant  with  changes 
in  RH. 


The  next  aerosol  species  is  assumed  to  be  water  soluble  and  is  represented  at  an  RH  of  80% 
by  a  lognormal  also  with  a  mode  radius  of  0.03  pm.  The  chemical  species  of  this  aerosol  is 
assumed  to  be  the  Volz’s  general  water-soluble  aerosol  described  in  reference  [16]. 

These  first  two  classes  of  aerosols  are  the  background  aerosol  related  to  the  air  mass  charac¬ 
teristics  and  do  not  seem  to  respond  to  local  wind  parameters.  Being  air-mass  dependent,  how¬ 
ever,  it  can  be  modified  when  transported  over  the  ocean  to  the  point  of  reference  from  the  land 
areas. 


The  third  class  of  aerosol  in  the  model  is  represented  by  a  lognormal  distribution  that  has  a 
mode  radius  of  0.24  pm  at  the  standard  RH  of  80%.  This  class  is  populated  by  marine  aerosols 
that  have  been  produced  by  earlier  high  wind  conditions  that  exhibit  a  relatively  long  residence 
time  and  remain  mixed  tiuoughout  the  MBL  once  they  are  introduced  into  the  atmosphere.  It 
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does  not  make  much  sense  to  say  that  the  concentrations  of  these  aerosol  are  related  to  the 
current  wind  speed.  They  are,  in  effect,  related  to  the  history  of  the  wind.  In  the  NAM/NOVAM 
simplification  of  the  problem,  the  previous  24-hour  average  of  the  wind  speed  is  an  attempt  to  tie 
this  class  of  aerosol  to  a  historical  relationship  with  the  wind. 

The  fourth  and  last  class  of  aerosols  is  that  of  the  largest  nuclei  originating  from  the  sea  sur¬ 
face;  this  can  be  important  in  the  propagation  of  IR  radiation  near  the  sea  surface.  These  aerosol 
are  represented  in  the  NAM  by  a  lognormal  distribution  that  has  a  inode  radius  cf  2.0  pm.  The 
amplitude  of  this  mode  is  definitely  related  to  the  current  wind  speed  and  the  current  white  water 
phenomenon. 

Finally,  the  volume  extinction  coefficient  for  any  size  distribution  dN(z)/dr  and  any  wave¬ 
length  within  the  range  of  application  could  be  expressed  by  using  the  Mie  Theory.  Here  of 
course,  we  have  to  know  Q ^  for  the  population  of  aerosol  that  is  a  function  of  the  wavelength, 
the  radius  of  the  sphere,  and  the  index  of  refraction  of  the  sphere  doing  the  scattering  or  absorp¬ 
tion  of  the  EO  propagation.  This  is  expressed  in  equation  (9)  as  an  integration  over  the  whole 
population  of  aerosol  sizes.  A  volume  absorption  coefficient  can  be  calculated  in  a  similar  way 
except  that  the  Mie  coefficient  must  be  used  instead  of  Qut .  The  volume  extinction  coeffi¬ 
cient  as  a  function  of  altitude  is 

=  Two  | Qexl '  ~dT  '  '  dr  ■  (9) 

If  we  now  substitute  into  equation  (9)  our  formulation  of  the  size  distribution  in  terms  of  the  sum 
of  four  lognormal  type  functions  we  get 


The  integration  and  the  summation  can  be  switched  in  equation  (10)  so  we  really  have  a  sum  of 
several  integrals.  The  volume  extinction  coefficient  is  shown  in  equation  (11),  and  using  a 
similar  process,  the  volume  absorption  coefficient  can  also  be  calculated  and  this  is  shown  in 
equation  (12). 


This  technique  speeds  up  the  calculations  since  the  integrals  can  be  calculated  earlier  and  their 
values  stored  as  numbers  in  a  lookup  table.  The  NOVAM  then  only  needs  to  address  this  table 
and  interpolate  between  values  to  obtain  the  desired  values.  This  is  done  by  storing  the  integrals 
for  four  different  relative  humidities  and  for  40  different  wavelengths  for  each  of  the  four  aerosol 
modes  in  a  table.  NOVAMSR  then  needs  only  to  do  a  table  lookup  and  interpolation  for  values 
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that  do  not  happen  to  be  one  of  the  stored  values.  The  integration  was  done  using  Dave’s  Mie 
code  [18]  for  the  values  of  (2ert  and  Qabs>  and  the  integration  was  done  in  decades  for  the  vari¬ 
able  r.  Each  decade  was  then  numerically  integrated  using  Simpson’s  rule  with  90  strips.  The 
results  of  these  integrations  are  stored  in  the  program  as  logarithms  for  simplicity  of  storage. 

FEATURES  OF  THE  NOVAM  SUBROUTINE 

The  NOVAMSR  is  called  with  six  input  parameters  and  seven  output  parameters.  These  are 
shown  in  table  1  in  the  order  needed  by  the  subroutine  along  with  a  brief  explanation  and  the 
units  needed  by  the  program.  A  fuller  explanation  is  given  below  to  the  types  and  kinds  of  data 
used  as  input  and  output. 

Table  1.  The  parameters  of  the  NOVAMSR  subroutine. 


Input  Parameters 


Altitude 


Wavelength 


The  surface  obs.  data, 

SurfObsFileName 


The  profile  data, 
RSondeFileName 


DataT^pe 


epeatflag 


Explanation 


Altitude  of  calculation 


Wavelength  of  calculation 


Name  and  directory  of  the  surface 
observation  file. 


Name  and  directory  of  the 
radiosonde  observation  file. 


Description  of  above  data  file. 


Use  true  to  bypass  analysis. 


Units 


meters 


micrometers 


ASCII  text 


ASCII  text 


LOGI 


utput  Parameters 


.xtinction 


Absorption 


Volume  Extinction  Coefficient 


Volume  Absorption  Coefficient 


Mode  0,  amplitude 


Mode  1,  amplitude 


ode  2,  amplitude 


,  amplitude 


Relative  Humidi 


Percent 


INPUT  PARAMETERS 


Altitude 

This  parameter  tells  NOVAM  at  what  altitude  (in  meters)  the  calculation  is  to  be  made.  There 
are  restrictions  in  the  values  which  this  altitude  can  have  based  on  the  validity  of  the  model.  Alti¬ 
tude  must  be  between  9  meters  and  6000  meters  or  the  model  will  return  an  error  flag  of  all 
-999.9  data  values  on  its  call.  At  high  altitudes,  the  upper  atmospheric  aerosol  models  developed 
by  the  U.  S.  Air  Force  [19]  should  be  used  even  over  the  oceanic  regions. 

Wavelength 

This  parameter  tells  NOVAM  at  what  wavelength  the  scattering  and  absorption  analysis  is  to 
be  calculated.  It  is  expressed  in  micrometers  and  can  range  from  0.2  pm  to  40  pm.  The 
subroutine  will  return  an  error  flag  of  all  -999.9  data  if  the  wavelength  is  outside  of  this  range. 
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Surface  Observation  File 

One  of  the  required  input  files  contains  a  set  of  shipboard-level  surface  observation  data.  The 
kind,  units,  and  order  of  these  data  are  shown  in  table  2  and  are  self-explanatory  except  for  cer¬ 
tain  items  that  are  explained  below.  These  values  are  to  be  provided  in  the  units  given  and  if 
these  observations  are  not  available,  a  value  of  -999.0  indicates  to  the  program  that  these  data 
are  indeed  missing  and  it  will  provide  a  default  value.  This  surface  data  file  has  fewer  elements 
than  the  earlier  files  used  with  NOVAM  codes.  Therefore,  caution  must  be  taken  to  convert 
earlier  files  to  work  with  NOVAMSR.  The  data  in  the  file  must  be  real  and  in  ASCII  format.  The 
individual  items  in  the  list  must  be  separated  from  each  other  by  spaces.  In  addition,  for  values 
<1,  the  decimal  point  must  be  preceded  by  a  zero. 

Table  2.  Surface  observation  data  file. 


Position 

Meteorological  Parameter 

1 

Sea  Surface  Temperature  (C) 

2 

Air  Temperature  (C) 

3 

Relative  Humidity  (%) 

4 

Optical  visibility  (km) 

5 

Cunent  real  wind  speed  (m/s) 

6 

Averaged  wind  speed  [24  hours]  (m/s) 

7 

Air  Mass  Parameter  (1..30) 

8 

Surface  IR  ext.  (l/km)  @  10.6  p 

9 

Zonal/seasonal  category  (1..6) 

Item  7  is  the  amp  which  is  a  number  used  to  describe  the  general  condition  of  the  air  mass.  It 
is  a  real  number  between  1  and  30,  where  1  indicates  a  pure  air  mass  without  contaminants  and 
30  describes  a  worse  case  situation  such  as  would  be  expected  downwind  of  a  large  industrial 
complex.  It  can  be  based  on  empirical  judgment,  or  it  can  be  related  to  certain  measurements  in 
the  MBL  such  as  the  atmospheric  radon  content,  Rn,  (expressed  in  (pCi/m 3))  as 

amp  =  Rn/ 4  +  1  (13) 

or  it  can  be  related  to  t,  the  elapsed  time  for  the  current  air  mass  to  reach  the  point  of  observation 
in  the  sea  from  a  distant  land  mass.  With  this  information,  the  expression  is 

amp  =  {9  •  exp(-r/4)}  +  1  (14) 

where  t  is  expressed  in  days. 

If  the  amp  is  not  known,  entering  the  value  of  -999.0  will  permit  NOVAM  to  estimate  an 
amp  for  the  run  by  using  other  data.  In  the  case  where  sea  surface  visibility  is  available,  we  can 
calculate  an  “effective"  amp  using  a  simplified  three-component  NAM  and  the  measured  visibil¬ 
ity. 

This  method  assumes  that  the  extinction  in  the  marine  atmosphere  is  because  aerosols  are 
composed  of  three  kinds  of  aerosols  distinguished  by  their  origin.  All  three  are  found  over  the 
ocean  in  varying  degrees.  The  model  assumes  that  the  size  distribution  of  the  three  aerosol 
classes  can  each  be  described  by  an  independent  lognormal  function.  The  net  size  distribution 
responsible  for  scattering  and  absorbing  the  optical/IR  energy  as  it  transverses  a  cloud  of  these 


9 


aerosols  is  the  superposition  of  the  three  classes.  Given  this  net  aerosol  size  distribution,  the 
extinction  and  absorption  of  optical/IR  radiation  can  be  calculated  by  using  the  Mie  Theory  as 
discussed.  The  assumptions  here  are  that  the  aerosols  are  spherical  in  shape  and  that  we  know 
their  index  of  refraction.  Furthermore,  if  the  aerosol  nuclei  are  soluble  as  is  the  case  with  most 
marine  aerosol,  then  the  size  of  the  aerosol  will  change  as  the  RH  of  the  surroundings  change. 
Therefore,  it  is  assumed  that  the  final  index  of  refraction  of  the  mixed  aerosol  is  a  volume  related 
combination  of  water  and  the  nuclei’s  index  of  refraction. 


The  following  analysis  shows  how  an  approximate  amp  can  be  determined  given  the  current 
wind  speed,  average  wind  speed,  RH,  and  visibility.  First,  a  differentiation  must  be  made 
between  the  total  extinction  at  visible  wavelengths  and  the  extinction  at  visible  wavelengths  due 
to  only  aerosols.  These  differ  by  the  Rayleigh  extinction  because  of  atmospheric  molecules. 
While  the  Rayleigh  extinction  can  vary  somewhat  depending  on  temperature,  pressure,  etc.,  we 
will  use  the  value  for  Rayleigh  scattering  for  air  at  288.15  °K  and  1013  mb  which  is  fim  = 
0.01162  (per  kilometer),  from  E.  J.  McCartney’s  book  [20]. 

Thus,  if  we  have  a  measured  extinction  based  on  a  scattering  or  transmission  measurement, 
or  on  a  direct  visibility  measurement,  it  will  include  the  Rayleigh  extinction.  This  measured 
visibility,  Vis\,  is  used  to  determine  the  amp.  Then  for  k  =  0.55  pm,  using  the  Koschmieder  [21] 
formula  for  the  relation  between  visual  range  and  total  extinction,  we  get 


r  -  3-912 
^  Vis,  ’ 


(15) 


The  aerosol  part  of  the  above  extinction,  fixo,  is  the  value  defined  as  the  total  extinction  less 
the  Rayleigh  extinction,  i.e.,  fixo  =  fix  -fim ■  When  A  =  0.55  pm  (visible  wavelengths),  we  get 


(16) 

size  distribution  can  be 

(17) 


(18) 

A2  =  MAX[5.866  •  (>v  -  2.2), 0.5),  (19) 

A3  =  10(O.O6->v'-2.8)  ^  (20) 

where  w,  and  w'  are  the  average  and  current  wind  speeds  in  m/s,  and  amp  is  the  unknown  amp. 
The  constants  rj,  r2,  and  r$  are  0.03, 0.24,  and  2.0,  respectively. 

The  size  parameter,/,  is  here  for  simplicity  in  this  approximation  to  be  the  same  for  all 
classes  of  aerosol  and  can  be  expressed  as  a  function  of  RH  for  all  relative  humidities  less  than 
or  equal  to  98%  (Fitzgerald  [22]). 


=  llf -*1-01162  • 

The  NAM  assumes  that  each  of  the  three  components  of  the  aerosol 
described  by  a  lognormal  function  as 


were  the  function  A,  is  defined  for  each  of  the  z’s  as 

Aj  =  2000  •  amp 2  , 


10 


/  = 


^  100 


16  •(!-»). 

It  has  the  value  of  “1”  at  an  RH  of  80%,  which  is  the  typical  RH  found  over  the  world’s  ocean. 


1/3 


(21) 


The  functional  form  of  the  size  distribution  can  then  be  written  in  a  simpler  form  as 


where 


dNt 

dr 


f 


•Sfrr) 


r  /  \ 

2' 

S,(/,r)  -  exp- 

-1  •  ['°iH 

► 

A 

(22) 


The  original  assumption  that  w,  w'  and  RH  are  known  quantities  means  that  all  of  the 
parameters  necessary  to  describe  the  size  distribution  of  modes  2  and  3  are  known.  The  size  dis¬ 
tribution  of  mode  1  is  still  undetermined  since  the  value  of  amp  is  not  known  at  this  point. 


If  we  use  the  Mie  Theory,  we  can  calculate  the  volume  extinction  coefficient  for  each  of 
these  classes  of  aerosol  for  a  wavelength  of  0.55  pm  as 


P 


u 


=  ^-[0 
1000  J  **  dr 


r2  •  dr 


(23) 


Substituting  for  dN/dr  we  get 


a  _  *'Aj  [ 

P'*  1000  •  /  J 


■  s,(f,r)  , 


(24) 


and  the  integrals  j  •  St{f,  r)  ■  r2  •  dr  are  calculated  as  described  above.  There  is  a  separate 

value  for  each  mode  and  RH.  Using  these  values  of  RH  for  each  mode,  the  volume  extinction 
coefficient  can  then  be  expressed  as 


P*  1000  •  /(RH)  '  ' 


7t  •  A: 


(25) 


Since  for  all  of  these  cases,  \  =  0.55  pm,  we  can  find  three  functions,  7)(RH)  of  RH  which 
express  these  integrals  for  each  aerosol  mode.  These  functions  were  obtained  by  finding  the 
numerical  value  of  the  Mie  integrals  for  four  relative  humidities  of  50, 85,  95,  and  99%.  The 
curves  were  fitted  with  the  relatively  simple  functions  with  the  assistance  of  a  special  software 
package  [23].  This  package  fits  the  input  data  points  to  over  7000  different  equations  and  ranks 
the  results  as  to  the  least  error  in  the  fitting.  The  fittings  here  had  the  resultant  equations  for  each 
of  the  modes  within  the  first  four  ranks.  An  example  of  the  fitting  of  the  data  for  mode  1  is 
shown  in  figure  1. 
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50  60  70  80  90  100 


RELATIVE  HUMIDITY  (%) 

Figure  1.  Plot  of  the  fit  of  the  TiCRH)  function  to  the  Mie 
integral  calculations  for  the  mode  1  aerosol  at  X  =  0.55  pm. 
Note  that  for  convenience,  the  y  axis  is  the  loglO  of  the 
integral  values. 


The  equations  fo:  each  mode  are  shown  in  equation  (26). 


URH) 


(a  +  c  ■  RH ) 
(1  +  £>  •  RH)' 


T2(RH) 


{d  ¥  g  •  RH)  (/  +  n  •  RH) 

(1  +  e  •  RH)'  *  }  (1  +  m-  RH) 


where  a  =  -4.05801664,  b  = -0.00890166,  c  =  0.038432675 

d  =  -0.64465936,  e  =  -0.00899986,  g  =  0.007232437 

1  =  2.019394568,  m=  -0.00900429,  and  n  =  -0.01670367. 


(26) 


The  measured  total  volume  extinction  due  to  aerosols  can  be  equated  to  that  calculated  by  the 
model  as 

/>»  =  2"  •  ■  T^RH)  +  />u,oss(«tf,»)  +  /3„-0.5s(*«.»O,  (27) 

where  we  have  only  the  parameter  amp  as  an  unknown.  The  unknown  can  be  determined 
algebraically  as 


amp  = 

In  order  to  keep  amp  from  becoming  imaginary,  (3Xo  must  be  equal  to  or  greater  than  the  sum 
of  the  extinctions  of  the  second  and  third  mode, 

i.e.,  P).0  “  ^2,A  =  0.55  +  ^3,A=-0.55  ' 

In  addition,  we  know  from  measurements,  that  amp  should  never  be  zero;  therefore,  the 
following  logical  “IF-THEN-ELSE”  evaluation  is  added  to  the  relationship. 
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THEN 

ELSE 


amp  =  0.1 


amp  = 


&  [p2,X=O.S5^^'^  +  Pi.X=0.55(RH'W  )) 

2tt  ■  Tx{RH)/f(RK) 


The  amp  can  now  be  plotted  as  a  function  of  visibility  for  various  sets  of  the  meteorological 
parameters  such  as  RH,  average  wind  speed,  and  current  wind  speed.  Figure  2  shows  the  rela¬ 
tionship  between  amp  and  visibility  when  there  is  no  wind  speed  either  average  or  current.  This 
is  the  “glassy  sea”  stage.  Here,  there  is  a  small  residual  component  of  the  mode  2  and  mode  3 
aerosols,  but  they  are  not  being  produced  by  wind-wave  interaction.  In  this  case,  amp  is  a 
straightforward  function  of  the  visibility. 


100 


10 

Q. 

1 


0.1 

0.1  1  10  100  1  000 

VISIBILITY  (km) 

Figure  2.  Plot  of  the  visibility  and  amp  relationship  from  this  model  for 
various  relative  humidities  and  with  no  current  or  average  wind  speeds.  Note 
that  there  are  amps  which  can  be  greater  than  10  for  certain  conditions. 

The  other  extreme  case  is  shown  in  figure  3  where  we  have  strong  concentiations  of  aerosol 
being  produced  at  the  sea  surface  due  to  interaction  of  the  wind  and  waves.  In  this  case,  there  is  a 
significant  extinction  at  the  visible  wavelength  of  0.55  pm  produced  by  aerosol  from  the  sea  sur¬ 
face,  which  must  be  taken  into  account.  If  our  measured  visibility  has  an  aerosol  extinction  value 
less  than  the  extinction  from  modes  2  and  3,  there  is  a  logical  problem  since  the  total  cannot  be 
less  than  the  sum  of  its  components.  In  this  case,  either  the  measurement  is  in  error  or  the  para¬ 
meterization  of  modes  2  and  3  components  of  the  model  is  wrong.  In  either  case,  when  this 
impossible  situation  occurs  for  whatever  reason,  the  amp  is  arbitrarily  set  to  0.1. 


VISIBILITY  vs.  amp 

AVERAGE  WIND  AND  CURRENT  WIND  ARE  ZERO 
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Item  8  in  table  2  is  a  parameter  that  gives  the  model  more  information  on  which  to  base  its 
predictions.  It  is  used  to  describe  the  IR  extinction  at  the  surface  at  the  wavelength  of  10.6  pm.  It 
is  anticipated  that  data  from  such  a  device  (several  are  now  available  on  the  commercial  market) 
will  greatly  improve  the  overall  operation  of  the  model.  It  will  do  this  in  conjunction  with  the 
optical  visibility  by  pinning  down  the  surface  extinction  at  two  widely  separate  wavelengths. 


VISIBILITY  vs.  amp 


AVERAGE  WIND  AND  CURRENT  WIND  =  10  m/s 


Figure  3.  A  plot  of  the  visibility  and  amp  relationship  from  this  model 
for  various  relative  humidities  and  with  the  average  wind  speed  and 
current  wind  speed  set  at  10  m/s.  The  plot  reflects  the  condition  that  the 
amp  can  never  be  less  than  0.1. 


Item  9  in  table  2,  the  zonal/seasonal  category,  is  a  number  between  1  and  6  that  signals  to  the 
computer  an  approximate  geographical  zone  where  the  calculation  is  to  be  used.  This  is  used  in 
the  default  definitions  where  data  from  a  climatic  atlas  [24]  are  used.  If  a  value  outside  the  limits 
of  1  to  6  is  used,  the  model  assumes  that  a  mid-latitude  summer  is  the  situation  where  the  cal¬ 
culation  is  being  made.  The  number  is  selected  from  table  3. 

Table  3.  Zonal/global  categories. 


1 

Tropical  winter 

2 

Tropical  summer 

3 

Mid-latitude  summer 

4 

Mid-latitude  winter 

5 

Sub-Arctic  summer 

6 

Sub-Arctic  winter 

Radiosonde  Observation  File 

This  is  an  ASCII  file  that  contains  the  available  information  on  the  temperature  and  humidity 
throughout  the  marine  atmosphere.  It  can  be  obtained  in  several  different  ways.  Profiles  of  the 
vertical  meteorological  structure  of  the  atmosphere  are  traditionally  obtained  with  the 
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radiosonde.  This  is  a  device  that  senses  pressure,  temperature,  and  RH  and  is  lifted  aloft  by 
either  kites,  free  balloons,  or  tethered  balloons.  The  measurements  are  sent  via  radio  to  a  ground 
receptor  that  translates  the  signals  into  profile  data.  Other  methods  are  also  available  for 
obtaining  this  information  such  as  from  an  instrumented  aircraft.  This  method  was  used  in  the 
NOVAM  testing  processes  where  the  aircraft  flew  in  a  tight  spiral  either  ascending  or  descend¬ 
ing.  NOVAMSR  is  set  up  so  it  will  accept  two  kinds  of  profile  data  files.  The  files  structures  for 
each  of  these  types  are  described  under  the  data  types  section. 

Data  Type 

There  are  two  types  of  data  format  for  the  radiosonde  observation  file  that  are  recognized  by 
NOVAMSR.  They  are 

1.  The  NOVAM  form  (N)  consists  of  a  “n  X  3”  matrix  where  “n”  is  the  number  of  observa¬ 
tions  made.  Each  row  of  this  matrix  consists  of  the  altitude  at  which  the  measurement  is  made 
and  expressed  in  meters,  the  potential  temperature,  0,  at  that  altitude  expressed  in  °C,  and  the 
mixing  ratio  at  that  altitude  expressed  in  g/kg.  An  example  is  given  in  table  4. 

Table  4.  A  NOVAM  type  radiosonde  profile  in  the  “n”  mode. 


Altitude  (m)  |  ©  (C)  Mixing  ratio  (g/kg) 


8.640 


8.850 


.820 


8.770 


2.  Another  form  of  profile  data  (R)  can  be  used,  which  is  the  output  of  a  PP11  from  a  RS-80 
RAOB  SONDE  system.  It  has  the  form  of  a  “o  X  5”  matrix  that  contains  the  following 
information  in  each  of  its  rows:  observation  number,  the  log  (base  10)  of  the  pressure  multiplied 
by  104 ,  the  air  temperature  in  °C  multiplied  by  10,  the  RH  in  percent,  and  the  pressure  in 
millibars  multiplied  by  10.  An  example  is  given  in  table  5.  The  calling  parameter  should  be 
either  an  “N”  or  “R”  to  indicate  to  NOVAMSR  which  type  of  data  to  expect  when  it  opens  and 
tries  to  read  the  radiosonde  observation  file. 

Table  5.  An  example  of  the  radiosonde  profile  in  the  “R”  mode. 

~T  30043  154  [~8l  1*10099 

2  30037  152  81  10086 

3  30033  150  83  10076 

4  30027  149  T3  10063 

~5  30022  |  148~  84  1*10050 

Repeat  Flag 

The  repeat  flag  is  a  logical  parameter  that  is  used  to  eliminate  repeated  analysis  of  the 
radiosonde  profile  every  time  the  NOVAMSR  is  called.  It  should  be  “false”  the  first  time  a  par¬ 
ticular  radiosonde  data  set  is  run.  When  this  happens,  the  radiosonde  preamble  is  calculated  from 
the  input  data  and  appended  in  front  of  the  significant  data  file.  This  information  is  then  used  in 
this  and  subsequent  calculations  with  this  particular  radiosonde  data  set.  The  next  time  a  call  is 


made  to  this  subroutine  with  this  radiosonde  data  set,  (assuming  no  other  radiosonde  data  sets 
have  been  used  in  the  meantime)  the  repeat  flag  should  be  set  to  “true,”  and  the  duplicate  analy¬ 
sis  needed  in  the  first  call  to  the  subroutine  will  be  eliminated, 

OUTPUT  PARAMETERS 


Relative  Humidity 

This  is  the  RH  obtained  from  the  analyzed  radiosonde  profile  data  at  the  referenced  altitude. 
This  humidity  may  differ  somewhat  from  the  raw  measure  of  RH  at  that  altitude  because  it  is  the 
humidity  that  the  model  obtained  from  the  smoothed  radiosonde  data.  It  is  based  on  the  linear 
interpolations  of  air  temperature  and  mixing  ratio  obtained  from  the  nearest  significant  level 
■above  the  reference  altitude  and  the  nearest  significant  level  below  the  reference  altitude.  Should 
the  reference  level  be  identical  to  one  of  the  significant  levels,  then  only  the  values  at  that  signif¬ 
icant  level  are  used.  This  humidity  is  provided  so  it  and  the  associated  size  distribution 
parameters  will  describe  the  same  aerosol  size  distribution  used  by  the  model  at  the  reference 
altitude. 

Size  Distribution  Parameters 


The  size  distribution  parameters  produced  by  the  subroutine  refer  the  model-generated  AO, 
Al,  A2,  and  A3  terms  of  equation  (8).  Each  of  these  reflect  the  “amplitude”  of  the  lognormal 
value  of  a  particular  component  of  the  dN/dr  size  distribution,  but  it  has  not  been  adjusted  for 
RH  at  that  particular  height.  An  /  factor  must  be  calculated  from  the  RH  for  each  component  if 
the  actual  dNIdr  of  the  aerosol  size  distribution  is  to  be  used.  Given  the  size  distribution,  dN/dr, 
various  other  calculations  of  optical  properties  of  the  aerosol  can  be  made  from  a  knowledge  of 
the  Mie  Theory  and  an  assumption  of  the  index  of  refraction  of  the  droplets. 


Extinction  and  Absorption  Coefficients 

The  extinction  coefficient  given  by  NOVAMSR  is  related  to  the  size  distribution  at  the 
reference  altitude  and  is  determined  by  the  superposition  of  the  lognormal  components,  which 
are  represented  by  amplitudes  Ao,  A  j,  A  2 ,  and  Ay  The  growth  factor  /  is  different  for  each 
component  and  is  given  by  Gerber’s  [25]  formulation.  The  actual  method  of  calculation  of  this 
coefficient  is  shown  in  equation  11. 


Here,  it  is  assumed  that  the  Ao  term  is  made  up  of  a  nonhygroscopic  material  and  does  not 
grow  with  increased  RH.  Hence,  the  /factor  for  the  Ao  term  is  always  1.0.  On  the  other  hand,  we 
assume  that  the  remainder  of  the  lognormal  populations  of  aerosols  are  hygroscopic. 


Gerber  formulates/ as 


/=" 


1/3 


CIS 

C8(l-S) 


(30) 


where  the  values  of  Cl  and  C8  are  given  in  table  6.  For  amp  greater  than  5,  we  assume  that  com¬ 
position  of  the  smallest  size  aerosol  is  composed  of  two  groups  of  particles.  One  which  has  an  / 
of  1  and  is  not  hygroscopic  and  composes  about  30%  of  the  aerosol,  while  the  remainder  of  the 
aerosol  is  assumed  to  be  made  up  of  an  urban  aerosol.  The  two  sea  salt  components  differ  only 
slightly  from  each  other. 
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In  a  similar  way  the  absorption  coefficient  is  calculated  in  equation  (12)  with  the /factor 
described  above. 

Table  6.  Constants  for  equation  (17)  and  the  range  of  relative  humidity  (RH)  validity. 
Gerber  [25]. 


Aerosol 

Model 

NAM 

Component 

C7 

C8 

Range  of 
Validity 

Sea  Salt 

2 

1.83 

mmwwm 

RH<99.9% 

Sea  Salt 

3 

1.97 

RH<99.99% 

Urban 

1 

1.28 

RH<99% 

Rural 

1 

1.17 

1.87 

RH<99% 

A  TEST  DRIVER  FOR  NOVAMSR 

A  driver  is  included  (see  appendix  A)  that  illustrates  the  use  of  NOVAMSR.  This  is  a  simple 
piogram  that  makes  a  profile  of  the  NOVAM  outputs  at  altitudes  of  10  meters,  100  meters,  and 
200  meters,  etc.,  up  to  the  end  of  the  available  meteorological  data.  The  use  of  the  logical  param¬ 
eter  REPEATFLAG  is  illustrated  where  it  is  “false”  for  the  first  call  to  the  subroutine  and  “true” 
for  the  following  calls  to  it.  The  information  needed  for  the  operation  of  NOVAMSR  is  included 
in  the  file  NOVAM.INI,  which  contains  the  file  names  of  the  surface  observation  file,  the  meteo¬ 
rological  profile  file,  the  type  of  data  to  expect  the  profile  data  to  be  in,  and  the  wavelength  at 
which  the  calculations  are  to  be  made.  The  operation  of  this  driver  is  illustrated  in  figure  4.  Once 
started,  the  program  uses  the  file  NOVAM.INI,  operates  the  NOVAMSR  and  prints  the  results  in 
the  OUTl  file,  and  then  ends.  A  detailed  view  of  this  operation  is  shown  in  figure  5  in  which  the 
NOVAMSR  is  seen  using  the  information  in  the  surface  observation  file  and  in  the  meteorologi¬ 
cal  profile  file.  The  names  of  these  files  are  given  to  the  driver  program  via  the  NOVAM.INI  file 
and  then  the  driver  supplies  the  names  to  the  NOVAMSR  by  means  of  the  parameters  exchange. 
The  driver  must  call  NOVAMSR  a  number  of  times  to  make  a  complete  profile.  Each  call  to 
NOVAMSR  returns  one  set  of  parameters  for  one  altitude  and  one  wavelength. 


Figure  4.  A  flowchart  showing  the  operation  of  the  subroutine 
NOVAM  under  the  control  of  a  driver. 


Sample 

Driver 

Program 


(FORTRAN) 


Output  file 


Figure  5.  Flowchart  showing  the  flow  of  information  in  a  simple 
program  which  utilizes  a  driver  and  the  NOVAM. 

THE  STRUCTURE  OF  NOVAMSR 

The  structure  of  the  subroutine  is  shown  in  simplified  form  in  figure  6.  The  structure  shows 
the  general  flow  of  the  program  including  how  the  “repeat”  flag  directs  the  program  around  the 
parts  of  the  code  that  performs  the  conditioning  and  the  analysis  of  the  radiosonde  data  when  a 
repeated  calculation  of  this  would  be  redundant.  This  allows  for  the  bypassing  of  unneeded  pro¬ 
gramming  and  shortens  the  net  processing  time  required  to  obtain  a  series  of  runs  with  the  same 
set  of  input  data.  The  chart  also  shows  how  one  of  three  paths  is  selected  for  the  actual  modeling 
of  the  vertical  structure  depending  on  the  values  contained  in  the  preamble  analysis. 

One  problem  of  the  flowchart  type  of  presentation  shown  in  figure  6  is  the  production, 
manipulation,  and  destruction  of  data  files  is  not  shown.  Therefore,  this  aspect  of  the  program 
must  be  described  with  words.  The  input  data  list  for  the  program  is  given  in  table  1,  and  in  this 
list  are  two  file  names  that  contain  the  information  on  which  NOVAM  calculation  is  based.  The 
structure  of  the  surface  observation  file  discussed  in  detail  above  and  sample  structures  of  the 
radiosonde  data  file  are  given  in  tables  4  and  5 .  The  profile  data  must  be  such  that  the  altitude 
values  be  monotonically  increasing  for  the  type  “N”  file  or  the  pressure  be  monotonically 
decreasing  for  the  type  “R”  file.  The  type  of  file  “N”  or  “R”  must  also  be  given  as  the  datatype 
parameter  cf  the  subroutine.  If  the  data  are  of  the  “N”  type,  they  contain  altitude,  potential  tem¬ 
perature,  and  mixing  ratio  for  each  observation.  These  data  must  be  converted  into  a  type  “R” 
file  so  that  the  data  conditioning  can  take  place.  Thus,  if  the  radiosonde  data  are  of  the  “N”  type, 
an  “R”  type  is  generated  called  PATRH.DAT  and  is  in  the  local  directory.  On  the  other  hand,  if 
the  data  are  already  of  the  “R"  type,  then  they  are  copied  into  the  file  called  PATRH.DAT  for 
conditioning  and  analysis. 

At  the  conclusion  of  the  filtering,  conditioning,  and  analysis  section  of  NOVAMSR,  a  file 
called  SIGFILE  is  generated  that  contains  values  of  pressure,  air  temperature,  and  RH  for  levels 
at  which  significant  changes  take  place.  The  first  line  of  SIGFILE  contains  a  single  number  that 
is  the  number  of  significant  levels  contained  in  the  file. 
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Figure  6.  A  simplified  flowchart  of  NOVASMSR. 


The  next  step  in  the  conditioning  process  is  to  use  the  data  in  S1GF1LE  to  obtain  the  profile 
parameters  needed  by  NOVAM.  This  implies  the  detection  of  the  existence  and  number  of  sig¬ 
nificant  air  temperature  inversions,  and  the  determination  of  information  about  altitude,  potential 
temperature,  and  mixing  ratio  of  points  where  the  inversion  starts  and  ends.  This  preamble 
information  is  added  to  the  beginning  of  an  internal  profile  data  in  an  array  called  RDATAARY, 
which  is  similar  in  structure  to  the  previous  NOVAM  input  radiosonde  files.  This  concludes  the 
preliminary  conditioning,  filtering,  and  analysis  part  of  the  program.  This  part  may  be  bypassed 
if  the  “repeat  flag”  parameter  of  the  NOVAMSR  input  is  “true.”  The  internal  array  called 
RDATAARY  contains  all  of  the  radiosonde  profile  information  needed  by  NOVAM  to  make  a 
calculation. 
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The  first  step  of  the  actual  NOVAM  calculation  is  to  make  the  selection  of  which  of  the  three 
models  to  use.  This  decision  is  based  on  the  information  in  the  preamble  part  of  RDATAARY.  If 
there  is  no  inversion  detected,  then  the  “strong  convection”  case  is  selected.  If  there  are  two  air 
temperature  inversions  detected,  then  the  “weak  convection”  code  is  selected,  and  if  there  is  only 
one  inversion  detected,  then  the  “stable  marine  boundary  layer  model  is  used.”  In  each  of  these 
models,  the  size  distribution  parameters,  the  RH,  and  the  extinction  and  absorption  at  the 
wavelength  and  altitude  requested  is  calculated  and  returned  to  the  calling  program. 

Filtering 

The  first  thing  that  is  done  in  the  NOVAMSR  is  to  condition  the  raw  radiosonde  data  to  elim¬ 
inate  spurious  observations  and  noise  that  often  accompany  raw  data.  This  is  accomplished  by 
employing  a  series  of  numerical  filters  to  smooth  the  pressure,  air  temperature,  and  RH  data 
points  found  in  the  file  “PATRH.DAT.”  Much  of  the  programming  code  is  patterned  after  the 
data-smoothing  programs  found  in  Press  et  al.  [26].  After  the  data  have  been  sufficiently 
smoothed,  the  meteorologically  significant  levels  and  the  data  associated  with  them  are  sent  to  a 
file  called  “SIGFTLE”  as  shown  below. 

“PATRH.DAT” . >  [  FILTER  ]  —  “SIGFILE” 

Determination  of  Profile  Parameters 


The  profile  parameters  are  determined  by  the  subroutine  called  PREAMB.  This  subroutine 
reads  the  conditioned  parameters,  pressure,  air  temperature,  and  RH  from  the  “SIGFILE”  profile 
data  file.  The  logic  behind  this  program  is  that  it  looks  for  significant  temperature  inversions  in 
the  SIGFILE  data  profile  and  uses  meteorological  values  associated  with  these  inversions  to  fill  a 
(5,3)  matrix  preamble  (see  table  7)  is  inserted  ahead  of  the  altitude,  potential  temperature,  and 
mixing  ratio  data  used  by  the  NOVAM  models.  The  elements  of  the  preamble  preceding  the 
actual  radiosonde  observations  are  parameters  that  describe  the  structural  characteristics  of  the 
profile.  This  discussion  involves  the  potential  temperature  and  the  mixing  ratio — two  meteoro¬ 
logical  parameters  that  change  in  altitude  for  a  well-mixed  situation.  The  structure  of  the  profile 
is  represented  by  a  multisegment>'d  line  fitted  to  the  SIGFILE  profile  data  points. 


Table  7.  The  NOVAM  preamble. 
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Starting  at  the  lowest  levels  and  going  up,  temperature  inversions  are  looked  for.  For  an 
inversion  to  be  “significant”  for  this  program,  a  certain  amount  of  logical  analysis  must  be  done 
on  the  data  before  they  are  accepted  as  a  real  inversion.  The  actual  code  required  to  do  the 
analysis  is  recorded  in  the  APPENDIX  under  the  subroutine  PREAMB.  This  analysis  essentially 
tries  to  fill  the  preamble  matrix  with  the  appropriate  data  starting  with  element  (1,1)  that  contains 
the  number  that  is  five  more  than  the  number  of  data  points  in  SIGFILE.  Elements  (1,2)  and 
(1,3)  contain  the  surface  observations  of  the  air  temperature  (potential  temperature  at  the  sea  sur¬ 
face),  and  the  mixing  ratio,  respectively.  The  process  then  continues  to  search  for  one  or  two 


significant  temperature  inversions  and  to  record  the  appropriate  sounding  data  into  the  other 
parts  of  the  preamble  matrix.  This  is  done  by  making  a  gradient  profile  calculated  by  AT/Ap  for 
each  two  adjacent  data  points  and  recording  the  value  as  long  as  the  absolute  value  of  AT  is 
greater  than  0.19°C  and  the  absolute  value  of  the  pressure  step,  Ap,  is  greater  than  0.9  mb. 

Values  less  than  this  are  defined  as  0.0.  This  assures  us  that  the  measured  data  differences  are 
greater  than  those  due  to  instrument  error.  Finally,  a  series  of  negative  AT/Ap  values  are  only 
accepted  if  the  net  increase  in  temperature  from  the  bottom  to  the  top  of  the  inversion  is  greater 
than  1.6°C.  When  the  first  legitimate  temperature  inversion  is  found,  then  the  elements  (2,1), 
(2,2),  (2,3),  (3,2),  and  (3,3)  are  recorded  in  the  preamble  matrix.  See  figure  7  for  an  illustration 
of  the  meaning  of  the  matrix  elements  on  a  stylized  segmented  type  “N”  profile  plot.  Element 

(2.1)  contains  the  altitude  the  inversion  starts,  element  (2,2)  contains  the  potential  temperature 
just  below  the  inversion,  and  element  (3,2)  contains  the  potential  temperature  just  above  the 
inversion.  In  a  similar  way,  element  (2,3)  contains  the  mixing  ratio  just  below  the  inversion  and 
element  (3,3)  contains  the  mixing  ratio  just  above  the  inversion.  A  similar  searching  process  is 
continued  as  altitude  increases  until  either  the  end  of  the  data  is  reached  or  a  second  inversion  is 
found.  If  the  second  inversion  passes  the  criterion  discussed  above,  then  the  matrix  elements 

(4.1) ,  (4,2),  (4,3),  (5,2),  and  (5,3)  are  also  recorded.  Element  (4,1)  contains  the  altitude  the 
second  inversion  statts.  Element  (4,2)  contains  the  potential  temperature  just  below  the  inver¬ 
sion,  and  element  (5,2)  contains  the  potential  temperature  just  above  the  inversion.  In  a  similar 
way,  element  (4,3)  contains  the  mixing  ratio  just  below  the  inversion  and  element  (5,3)  contains 
the  mixing  ratio  just  above  the  inversion. 

When  there  is  only  one  inversion  found,  the  data  elements  (4,1),  (4,2),  (4,3),  (5,2),  and  (5,3) 
all  contain  the  value  -999.0.  This  is  the  simple  MBL  case.  Finally,  if  no  temperature  inversions 
are  found,  then  elements  (2,1),  (2,2),  (2,3),  (3,2),  (3,3),  (4,1),  (4,2),  (4,3),  (5,2),  and  (5,3)  all  con¬ 
tain  values  of  -999.0.  This  is  the  case  where  convective  activity  is  usually  in  operation.  This 
information  in  the  preamble  is  used  to  decide  which  of  the  three  model  to  use  in  a  particular 
calculation. 

Almost  Well-Mixed  Boundary  Layer  Model  (One  Inversion) 

The  important  feature  of  this  model  is  it  allows  gradients  to  exist  in  the  MBL  for  passive 
scalar  contaminants  such  as  marine  aerosol.  Furthermore,  these  gradients  are  calculated  from  the 
available  meteorological  parameters  using  the  various  scaling  laws  developed  by  Fairall  and 
Davidson  [27].  Using  these  ideas,  we  calculate  a  gradient  in  the  concentration,  dAldz,  of  marine 
aerosol  in  the  boundary  layer  to  be 

f =  +  2-5 '  (3I) 

where 

(1)  “A”  is  the  height  of  the  MBL,  which  is  the  height  of  the  inversion  and  is  stored  in  element 

(2.1)  of  the  ^DATAARY. 

(2)  w  *  is  the  convective  scaling  velocity  calculated  from  the  bulk  micro  meteorological  scaling 
equations  based  on  information  from  the  surface  observation  file.  This  is  calculated  as  “wstr”  in 
the  subroutine  WE2. 

(3)  S  is  the  source  terms  of  the  aerosol  at  the  sea  surface.  This  model  uses  the  table  lookup 
routine  in  WHITEFLUX  based  on  observations  by  Fairall,  Davidson  and  Schacher  [28]. 
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(4)  Vj  is  the  dry  deposition  velocity  or  fallout  term  of  the  aerosol  at  the  sea  surface.  This  cal¬ 
culation  is  based  on  the  theory  of  Slinn  and  Slinn  [29]  and  modified  by  Fairall  and  Davidson 
[27]. 

(5)  We  is  the  entrainment  velocity  at  the  top  of  the  MBL,  and  is  based  on  measured  informa¬ 
tion  about  the  boundary  layer  contained  in  the  surface  observation  file  and  the  preamble  to  the 
profile  data.  This  is  calculated  in  the  WE2  subroutine. 

(6)  A<i[  is  the  concentration  of  aerosol  size  at  deck  level  (in  this  case  it  is  determined  by  the 
four-component  NAM). 

(7)  Ab  is  the  concentration  above  the  MBL  of  that  class  of  aerosol.  This  will  be  set  to  zero  for 
sea  salt-generated  aerosol  and  to  the  surface  value  for  the  background  aerosol. 

These  values  are  calculated  by  the  various  methods  and  put  together  into  equation  (31)  to 
determine  the  gradients  of  the  various  modes. 

Given  the  calculated  gradients  of  each  of  the  four  aerosol  types,  as  well  as  their  concentration 
at  the  surface,  this  model  gives  the  concentration  of  any  atmospheric  constituent  as  a  function  of 
altitude  within  the  MBL. 

A,<z)  =  A,( 0)  +  z  ■  .  (32) 

The  realistic  assumption  is  that  the  concentration  of  the  aerosol  can  never  be  negative.  It  is  fur¬ 
ther  assumed  that  the  concentration  of  the  sea  salt  aerosol  above  the  boundary  layer  is  zero  and 
that  the  background  aerosol  has  the  same  value  at  altitudes  above  the  MBL  as  it  had  at  the  MBL. 
It  is  also  assumed  that  the  background  aerosol  has  no  source  at  the  sea  surface. 

This  technique  can  estimate  the  concentrations  of  different  aerosol  classes  for  which  surface 
concentrations  are  available  at  any  altitude,  z.  The  total  aerosol  size  distribution  at  z  consists  of 
three  or  four  lognormal  curves  representing  the  size  distribution  of  the  classes  of  aerosol  pro¬ 
duced  at  the  sea  surface,  modified  by  the  concentration  determined  by  the  different  gradients  and 
the  altitude.  Given  this  size  distribution  at  z  and  the  measured  or  interpolated  RH  at  z  obtained 
from  the  atmospheric  sounding,  the  aerosol  size  distribution  adjusted  for  an  RH  is  determined. 

At  this  point,  the  optical  properties  of  the  aerosol  can  be  obtained  by  invoking  the  set  of  simpli¬ 
fied  conversion  algorithms  that  gives  the  optical  properties  of  the  parcel  of  air  at  that  particular 
level.  This  process  (described  in  equation  (20))  is  a  rapidly  executable  table  lookup  routine  that 
requires  the  databases  of  precalculated  Mie  computations  for  lognormal  distributions  of  the 
various  types  of  aerosols  for  its  operation. 

Weak  Convection  Model  (Two  Inversions) 

This  model  describes  the  situation  in  which  scattered  cumulus  clouds  may  be  present  and  the 
well-mixed  layer  is  confined  to  the  region  below  the  cloud  base.  In  the  region  above  the  cloud 
base  and  below  the  cloud  tops,  strong  vertical  gradients  of  aerosol  concentrations  may  be 
observed,  Davidson  and  Fairall  [30].  They  show  the  profile  of  v  mcentrations  of  various  classes 
of  aerosol  are  dependent  on  various  meteorological  parameters.  These  parameters  are  determined 
from  the  structural  characteristics  of  the  potential  temperature  and  the  mixing  ratio  profiles 
obtained  from  radiosonde  profiles.  Figure  8  shows  a  simplified  profile  of  the  aerosol 
concentrations. 
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(NUMBERS  IN  PARENTHESIS  REFER  TO  MATRIX  LOCATION) 

Figure  7.  Stylized  profile  definitions  for  use  in  the  preamble.  The  figure 
represents  the  segmented  lines  that  compare  data  plots  of  mixing  ratio  and 
potential  temperature  against  altitude.  Three  altitudes  are  shown  on  the 
figure,  with  the  base  of  the  plot  being  zero.  Two  values  are  to  be  placed  in 
the  preamble  matrix  from  data  at  this  level.  The  surface  values  of  the 
potential  temperature  (as  measured  by  the  sounding  device)  is  inserted  in 
position  (1,2)  of  the  preamble;  the  surface  value  of  the  mixing  ratio  is  put 
into  position  (1,3). 

Our  data,  together  with  the  techniques  of  Davidson  and  Fairal  [30],  are  used  by  the 
NOVAMSR  to  determine  the  gradient  of  the  concentration  between  the  two  inversions.  The  sim¬ 
plifying  assumption  is  made  that  for  each  particular  class  of  aerosol,  the  aerosol  concentration  at 
the  sea  surface  is  the  same  as  at  the  top  and  bottom  of  the  cloud  base  level.  With  this  assumption, 
the  concentration  gradient  is  given  by 

r  =  (*.•+-*')•*  (33) 

(1  +  n)  •  bz 

where 

( 6qb  •  r0  -  d9b  ■  rQ)  •  bz 

n  =  - 1 - i - Si - -  .  (34) 

(<36,  ■  bq  b-dq,-  bqt  ■  bdb) 


bqt  and  <5%  refer  to  the  “jumps”  in  the  mixing  ratio  and  the  potential  temperature  at  the  lower 
inversion;  bqt  and  bdj  refer  to  the  “jumps”  in  the  same  quantities  at  the  upper  inversion;  and  <3z 
refers  to  the  depth  of  the  layer.  Ar  is  the  concentration  of  the  particular  aerosol  mode  at  the  sur¬ 
face,  and  AJ+  is  the  concentration  above  the  top  inversion. 

These  quantities  are  calculated  by  the  computer  from  the  data  in  the  radiosonde  preamble. 
For  instance,  bqt  refers  to  the  jump  in  the  mixing  ratio  values  and  is  calculated  from  the  matrix 
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element  points  in  figure  7  as  R[4,3]  -  R[5,3].  Likewise,  rq  refers  to  the  slope  in  the  mixing  ratio 
in  the  region  between  the  inversions  and  can  thus  be  calculated  from  the  various  matrix  element 
terms. 

The  concentration  profiles  needed  by  NOVAMSR  are  then  calculated  with  the  gradient  T  of 
equation  (33)  and  with  the  surface  values  of  the  four  modes  of  the  aerosol  concentration  obtained 
with  the  four-mode  NAM  at  the  surface.  Assumptions  about  the  aerosol  concentration  above  all 
of  the  inversions  are  made  in  the  following  manner:  sea  salt  aerosols  do  not  make  it  above  the 
second  inversion;  therefore,  the  A2  and  A3  terms  should  be  zero  in  this  region.  On  the  other 
hand,  the  background  aerosols  A1  and  AO  (if  it  exists)  are  known  at  the  surface  but  can  be 
estimated  at  altitudes  above  z2  in  figure  8. 


SURFACE  GENERATED  CONTINENTAL  GENERATED 

Figure  8.  Simplified  aerosol  concentration  profiles.  When  the  index 
“i”  is  0  or  1,  then  the  continental-generated  aerosol  profile  applies. 

When  the  index  “i”  is  2  or  3,  then  the  surface-generated  aerosol 
profile  applies. 

It  is  assumed  that  Ao-  and  are  the  same  and  that  and  are  the  same.  It  is  also 
assumed  that  the  region  below  zl  is  well  mixed  forcing  A;r  and  to  be  the  same  for  i  =  0,1, 2, 3. 
This  leads  to  the  description  of  Ai(z)  as 

ifO<z<zl  Aj(z)  =  A,(0) 

if  zl  <=  z  <  z2  A,(z)  =  Aj( 0)  +  (z  -  zl)*r, 

if  z2  <=  z  A,(z)  =  A,-(0)  +  (z2  -  z\)*rt 

A/(z)  =  0 

Given  these  relationships  for  the  height  variation  of  the  concentration  of  the  four  aerosol  modes, 
they  can  be  directly  substituted  into  equations  (11)  and  (12)  to  provide  the  optical  properties  of 
the  aerosol  at  the  heights  in  question. 


for  i  =  0,1, 2,3 

for  i  =  0,1, 2, 3 

for  i  -  0,1 
for  i  =  2,3 


(35) 
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No  Inversion  Model 


The  third  of  the  three  models  is  the  case  where  there  is  no  real  temperature  inversion 
apparent  in  the  measured  and  filtered  profile.  Such  a  profile  was  the  usual  form  obtained  in  the 
tropical  waters  during  the  KEY-90  experiment.  An  example  is  shown  in  figure  9  where  three 
soundings  were  taken  in  the  same  general  area  to  the  east  of  the  Florida  Keys  near  the  town  of 
Marathon,  Florida.  Two  of  the  soundings  were  done  with  the  conventional  balloon-borne  probe 
and  one  with  an  instrument  aircraft  making  a  spiral  vertical  ascent  from  near  the  sea  surface  to  3 
kilometers.  They  all  show  a  constant  decrease  in  air  temperature  with  increasing  altitude  except 
for  “noise”  superimposed  on  the  record.  The  processing  of  the  NOVAM  subroutine  would  com¬ 
pletely  eliminate  these  “noise”  blips  and  show  a  clean,  no  inversion  profile  with  few  significant 
points. 


AIR  TEMPERATURE  SOUNDINGS 


Figure  9.  Temperature  profiles  plotted  from  three  soundings  taken 
from  the  KEY-90  data  set  on  14  July  1990.  There  are  fluctuations  and 
kinks  in  these  curves  but  the  main  temperature  decreased  monotonically 
as  altitude  increased. 

The  no-inversion  model  assumes  an  exponential  decrease  in  the  marine  aerosol  produced  at 
the  sea  surface.  The  small-sized  aerosol,  which  we  assume  are  from  the  continental  areas,  are 
well  mixed  in  such  an  atmosphere;  therefore,  we  assume  that  the  concentration  values  deter¬ 
mined  at  the  surface  are  constant  throughout  the  vertical  dimension  of  the  MBL.  This  refers  to 
both  the  AO  and  the  A1  components.  On  the  other  hand,  the  aerosol  generated  at  the  sea  surface 
are  assumed  to  have  an  exponential  drop  off  with  altitude.  The  scale  heights  of  these  exponential 
curves  will  be  different.  The  scale  height  of  the  A 2  parameter  has  been  determined  empirically 
by  Wells,  Gel,  and  Munn  [31]  to  be  about  800  meters;  whereas  the  scale  height  of  the  largest 
sized  aerosol  has  been  estimated,  from  various  data  sets  the  authors  have  looked  at,  to  be  about 
50  meters. 


(36) 


This  is  expressed  in  mathematical  form  for  the  smallest  size  aerosol  as 

AO(r)=:A0(0) 

and 

Al(z)  =  Al(0)  , 

for  the  midsized  aerosol  as 

A2(z)  =  A 2(0)  ■  exp(-^)  ,  (37) 

and  for  the  largest  class  of  aerosols  as 

A3(a)  =  A3(0)  •  exp(-^)  .  (38) 

Of  course  the  size  distribution  at  any  altitude  will  depend  on  these  concentration  vaiues  as 
well  as  the  growth  of  these  particles  in  the  lognormal  function  due  to  hygroscopic  action.  In 
addition,  the  concentrations  at  the  surface,  A0(0),  A  1(0),  A2(0),  and  A3(0)  will  be  calculated 
from  the  amp,  average  wind  speed,  and  current  wind  speed  values  corrected  by  visibility 
measurement  and  IR  measurements,  if  they  are  available. 

This  model  then  calculates  the  volume  extinction  coefficient  and  the  volume  absorption  coef¬ 
ficient  from  the  multicomponent  lognormal  size  distribution  using  the  method  of  interpolation  of 
data  between  precalculated  Mie  calculations  for  the  RH  at  that  height.  The  subroutine  then 
returns  all  the  EO  data  and  size-distribution  data  for  the  given  altitude  and  wavelength. 

An  example  of  how  well  the  exponential  model  works  in  a  no-inversion  environment  is 
shown  in  figure  10.  In  this  figure  are  plotted  all  of  the  3.5  p  extinction  data  as  a  function  of 
height  obtained  during  the  KEY-90  experiment  mentioned  above.  Each  of  these  individual  mea¬ 
surements  is  shown  as  a  point  in  the  figure  regardless  of  the  circumstances  of  the  measurement, 
such  as  what  the  RH  was,  or  if  clouds  were  nearby.  Superimposed  on  these  points  are  two  lines. 
One  line  is  the  least  square  fit  of  all  of  the  points  on  the  curve  and  it  is  labeled  the  least  squares 
fit  of  all  aircraft  data.  The  slope  of  this  line  shows  that  in  the  environment  typical  in  the  Florid? 
Keys  area,  the  exponential  model  works  well.  The  other  line  drawn  in  figure  9  is  the  least 
squares  line  fitted  to  all  of  the  NOVAM-predicted  profiles  obtained  from  all  of  the  meteorologi¬ 
cal  soundings  done  with  both  the  aircraft  and  with  radiosondes. 
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Figure  10.  A  combined  plot  of  all  KEY-90  3.5  p  extinction  data 
obtained  from  aircraft  measurements  of  aerosol  size  distribution. 
These  points  are  plotted  together  on  the  same  chart  and  exhibit  a 
mean  characteristic.  Least  square  fits  to  the  data  and  also  from  all 
of  the  NOVAM  runs  are  plotted  as  lines  in  the  figure.  These  data 
show  that  in  the  mean,  the  exponential  function  with  altitude  works 
quite  well  for  the  “no-inversion”  types  of  data. 
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CONCLUSIONS 


We  have  presented  a  model  for  describing  the  EO  properties  of  the  unique  marine  aerosol 
found  in  the  regions  from  shipboard  height  to  above  several  kilometers  in  altitude.  The  model 
has  been  written  as  a  self-contained  FORTRAN  subroutine  so  it  could  be  incorporated  into  larger 
scale  models  such  as  the  LOWTRAN  and  MODTRAN  codes.  The  model  needs  information  on 
the  meteorological  sounding  at  the  site  where  the  calculation  is  made  as  well  as  information  on 
certain  meteorological  parameters  near  the  surface  of  the  sea.  The  model  has  certain  shortcom¬ 
ings  that  need  to  be  addressed  in  future  modifications.  First  of  all,  the  region  of  the  applicability 
is  from  shipboard  level  (about  5  to  10  meters)  to  regions  above  the  lower  troposphere  where  oth¬ 
er  aerosol  models  will  be  more  appropriate.  This  leaves  two  areas  that  are  not  covered  well  by 
the  model.  At  the  higher  altitudes,  various  models  developed  by  the  U.  S.  Air  Force  and  included 
in  the  LOWTRAN/MODTRAN  codes  will  be  more  accurate.  On  the  other  extreme,  an  important 
propagation  path  that  grazes  the  sea  surface  or  passes  through  the  region  within  a  meter  or  so  of 
the  sea  surface  is  not  adequately  covered  by  NOVAM.  This  is  because  NOVAM  is  in  part  an 
empirical  model  and  based  on  measurements  in  the  real  world.  Current  interest  from  shipboard 
level  on  down  currently  lacks  observation  data  because  of  the  difficulty  in  obtaining  them.  This 
region  will  be  especially  important  to  IR  propagation  during  rough  weather  and  high  seas  where 
many  marine-generated  drops  and  droplets  are  suspended  in  these  lower  levels  of  the 
atmosphere.  This  problem  is  currently  being  remedied  by  a  large-scale  experiment  called  the 
Marine  Aerosol  Properties  and  Imager  Performance  (MAPTIP)  trial  off  the  Dutch  coast 
sponsored  by  NATO.  The  results  of  this  experiment  will  contribute  to  the  development  of  an 
advanced  Navy  aerosol  model  (ANAM)  currently  under  development.  These  results  can  be 
added  into  the  modular  format  of  NOVAM  to  increase  its  regions  of  application. 

Another  shortcoming  in  NOVAM  is  its  somewhat  limited  types  of  weather  situations  in 
which  it  is  applicable.  An  earlier  version  of  NOVAM  included  the  region  just  below  stratus 
clouds,  but  because  this  model  had  a  limited  band  of  wavelength  validity  and  required  inputs  that 
are  really  incompatible  with  a  self-contained  model,  this  submodel  was  dropped  from  the  current 
model.  Advances  in  these  areas  await  the  development  of  models  from  the  basic  research  com¬ 
munity  sometime  in  the  future. 

An  area  of  concern  in  the  application  of  models  such  as  NAM  and  NOVAM  is  the  use  of  the 
models  in  the  close-in  coastal  areas.  As  these  models  were  developed  for  the  open  ocean  region 
far  away  from  the  land  influences,  error  would  be  expected  when  unusual  sources  of  aerosol  are 
sent  into  the  atmosphere  by  man-made  sources.  The  amp  concept  was  introduced  into  NAM  and 
NOVAM  to  compensate  for  these  problems,  but  experience  has  shown  that  this  is  one  of  the 
weakest  parts  of  the  models.  It  is  the  author’s  opinion  that  a  special  coastal  aerosol  model  needs 
to  be  developed  that  will  adequately  take  into  account  local  sources  of  aerosol. 
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APPENDIX  INDEX  Location  of  Functions  and  Subroutines 


TYPE 

NAME 

FUNCTION 

Altitude 

SUBROUTINE 

AsstgnRSondcVars 

SUBROUTINE 

AssignTIO  RHH  QP 

SUBROUTINE 

Bulk 

FUNCTION 

CIO 

SUBROUTINE 

SUBROUTINE 

ChcckRSondcData 

SUBROUTINE 

Convert 

SUBROUTINE 

Convert  Rdata 

SUBROUTINE 

Dcpovel 

FUNCTION 

Diff  cocf 

FUNCTION 

FNA 

FUNCTION 

FNB 

FUNCTION 

FNC 

FUNCTION 

FNH 

FUNCTION 

FNR 

FUNCTION 

FNTabs 

SUBROUTINE 

FOUR1 

FUNCTION 

Fdpt 

SUBROUTINE 

Filter 

FUNCTION 

FmLnt 

FUNCTION 

Fqstar 

FUNCTION 

Frac 

SUBROUTINE 

Histogram 

SUBROUTINE 

Iinl779 

REAL  FUNCTION 

LOG  10 

SUBROUTINE 

Linfit 

SUBROUTINE 

MAKE  RDATAARY 

REAL  FUNCTION 

Mu  talc 

SUBROUTINE 

NOVAMSR 

SUBROUTINE 

NOVAMW 

SUBROUTINE 

NolnvcrsionsCasc 

SUBROUTINE 

Optics 

FUNCTION 

PaLt 

CHARACTER*2  FUNCTION 

Pad 

SUBROUTINE 

Pa  reel  2 

FUNCTION 

Potential  temperature 

FUNCTION 

Power  10 

SUBROUTINE 

Preamb 

FUNCTION 


SUBROUTINE 


FUNCTION 


FUNCTION 


SUBROUTINE 


REAL  FT 


RMi\  ratio 


RMixine  ratio 


RcadSctupFilc 


31 


TYPE 


NAME 


PG  U 


SUBROUTINE 


FUNCTION 


SUBROUTINE 


SUBROUTINE 


FUNCTION 


SUBROUTINE 


SUBROUTINE 


FUNCTION 


FUNCTION 


FUNCTION 


FUNCTION 


FUNCTION 


FUNCTION 


SUBROUTINE 


SUBROUTINE 


SUBROUTINE 


SUBROUTINE 


FUNCTION 


FUNCTION 


SUBROUTINE 


FUNCTION 


SMOOFT 


SimpIcBLCasc 


Skv2 


Smixr 


Sufin 


Swrll 


Td 


Th 


Thslar 


Thz 


We2 


WcakConvcctionCasc 


Wccalc 


Whitcflux 


Xtov 


Zcon 


Zerobin 


Zzcro 


APPENDIX  A  A  NOVAM  TEST  DRIVER 


PROGRAM  DRIVER2 

c  {  File  Name:  Drivers. FOR  > 

c  <  .  > 
c  (  Description:  The  main  driver  unit  For  all  the  Novam  Calculation  models.  ) 

c  <  ) 

c  (  Purpose:  Main  driver  for  NOVAM  subroutines  calculations.  NOVAM  produces  ) 

c  <  an  output  file,  0UT1  containing  extinction  &  absorption,  RH  and  the  > 

c  (  aO  •>  a!  site  distribution  parameters  at  an  altitude  of  200  meters  ) 

c  (  > 

c  C  Preconditions:  SurfObsFile,  RSondefile,  and  NOVAM .INI  exists;  > 

c  <  Global  Variables:  > 

c  (  Revision  History:  ) 

c  ( . ) 

c  (  Date  I  Programmer  |  Remarks  > 

c  (  Jun  1993  I  Stuart  Gathman  |  made  into  a  NOVAMSR  driver  > 

c  < . > 


logical  readok 

logical  repeatflag 

character'10  UavetenStr 

character*12  RSondeFi leName 

character*12  SurfObsFi leName 

character’1  DataType 

integer  nett ime,  t imel , H,M,S, 1 100TH 

c  (Starr  the  t imer  ) 

call  gett im(h,m,s, i 100th) 
t imel  =  3600*h*60*m*s 

c  {  Run  the  NOVAM  model  ) 

openCuni t=31 ,  f i l e= 1  out  1 1 , status- 1  unknown* )  <  The  output  file, 
call  ReaaSetupf i le(WaveLenStr,  SurfObsFi leName, 

S  RSondeFi leName,  OataType,  ReadOk) 

if  (.NOT.  ReadOK)  then 

stop  'setup  file  novam.ini  does  not  exist' 
else 

read( UaveL ens tr,'(f10.4>')  Waveien 
endi  f 

alt=10.0  Ifirst  altitude  for  calculation 

repeatf lag=( 1 .eq.O)  (False  define  use  inputdata  for  first  point 
call  NOVAHSR(alt,wavelen,SurfObsF i leName, RSondeFi leName, 

%  DataType, repeatf lag, 

%  Ext,Abs,a0,a1,.:2,a3,rh) 

write(31,30)  alt,  rh,  ext,  abs,a0, il , a2, a3 
30  formatOh  ,  f  7.0,  lx,  fS .  1 ,  1x,e10.3, 1x,e10.3,4(  1x,e10.3>) 
alt=0.0 
do  1*1,50 
alt=alt+100 
repeatf lag=(1.eq.1> 

call  NOVAMSR (alt, uave l en , Sur f Obs F i l eName , RSonde F i  l eName , 

S  DataType, repeatf lag, 

S  Ext,Abs,a0,e1,a2,a3,rh) 

if (ext  .It.  0.0)  goto  55  Ijunp  out  of  loop  when  data  not  available 
write(31,30)  alt,  rh,  ext,  abs,a0,a1 ,a2,a3 
enddo 

c  (Write  the  elapsed  time  for  the  run  on  the  screen) 

55  call  gettim(h,m,s, i 100th) 

nett ime  =  3600*h*60*m*s  •  timel 

write(*,*)  'The  net  time  of  computation  is: ', nett ime 
end  *  (  driver2  main  ) 


APPENDIX  B  MAIN  NO  YAM  SUBROUTINE 


{  File  Name:  NOVAMsr . FOR 
( 

{  Purpose:  Main  driver  subroutines  For  NOVAM  calculations. 


> 

) 

NOVAM  produces  > 


outpcT  File  ExtincF i leName  which  contains  extinction  &  absorption 
vs.  altitude  data  For  later  plotting. 

Description:  The  Novam  calculation  models. 


Revision  History: 


10  Jan  1987 
24  Mar  1989 

28  Mar  1989 
01  Jan  1991 
22  Jan  1991 
27  Sep  1991 

29  Oct  1991 
Nov  1992 
Jun  1993 


Stu  Gsthman,  NRl 
Stu  Gathman 
Stu  Gathman 
Stu  Gathman 
Stu  Gathman 
Charles  McGrath 
Charles  McGrath 
Linda  Hi tney 
Stu  Gathman, NRaO 


> 
) 
) 
> 
> 
> 
) 
> 
> 
> 
> 
) 
> 
) 
) 

-> 
) 

■) 
) 

Added  comments  > 

many  Globa  Is  made  local  ) 
NOVAM  broken  into  procedures) 
Divided  into  3  smaller  units) 
made  an  independent  progarm  ) 
mod  read  inputs  st  NOVAM. INI ) 
converted  Frum  PASCAL  to  ) 
FORTRAN  ) 

NOVAM  Subroutine  in  FORTRAN  ) 


Ver  0.02  Translated  From  TBASIC  vl.02 
Ver  0.07 

Ver  0.08  Logic  tree  simplified 
Ver  0.10 

Ver  0.1’  many  improvements 
Comments  6dded 

Restructure/added  procedures 
converted  from  PASCAL  to  FORTRAN 
convert  into  Fortran  Subroutine 


Version 

Date 

Progranner 

1.00 

01  Jan  1991 

Stu  G.  Gathman 

1.01 

27  Sep  1991 

Charles  McGrath 

1.02 

21  Oct  1991 

Charles  McGrath 

1.03 

28  Oct  1991 

Charles  McGrath 

1.04 

29  Oct  1991 

Charles  McGrath 

2.15 

03  Feb  1992 

Charles  McGrath 

2.15 

10  Feb  1992 

Charles  McGrath 

3.00 

Nov  1992 

Linda  Hi tney 

3.10 

01  Jul  1993 

Stuart  Gathman 

|  Remarks 


SUBROUTINE  NOVAHSRCa It, wavelen, SurfObsF  i  leName, 

J  RSondeF i leName, Datatype, repeat  Flag, 

*  Ext,Abs,aO,a1,a2,a3,rh) 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


This  is  a  subroutine  which  exercises  the  NOVAM  subroutines. 
Inputs  to  this  subroutine  are: 


alt, 
uavelen, 
SurfObsFi leName, 
RSondeF i leName, 
OataType, 
repeatf lag, 


the  altitude  in  meter 
in  microns 

name  of  surface  observation  file 
name  of  the  radiosonde  data  file 
n  for  NOVAM  type  or  r  For  rs  type 
"true"  if  input  data  used  before 
"false''  if  new  set  of  data. 


Outputs  from  this  subroutine  are: 

Ext,  Extinction  in  1/km  at  Uavelen 
Abs,  Absorption  in  1/km  at  Uavelen 
a0,a1 ,a2,a3, rh  (at  alt) 


(  Initialize  Variables  ) 


save  rdataary, rsdata, rscalc, sodata 
include  'rscalc.inc' 
include  'rsdata. inc' 
include  'sodata.  inc' 
reel  RdataAry  (200,3) 
real  preambled, 3) 
logical  repeatflag 
character‘1  OataType 
character*12  RSondeF i leName 
character*12  SurfObsF i leName 
c  (  Check  Initial  Variables  ) 

i f ( ALT  .LT.  9.0)  GOTO  98  ! OUT  OF  RANGE 

I F{ ALT  .GT.  6000.0)  GOTO  98  'OUT  OF  RANGE 
I F (UAVELEN  .LT.  0.2)  GOTO  98  'OUT  OF  RANGE 


If  (WAVELEN  .GT.  40.0)  GOTO  98  !0<JT  OF  RANGE 

if(repeatf lag)  goto  11 
do  2  j=1,3 
do  1  i  =1,200 
rdataary( j , j )=0.0 

1  continue 

2  continue 

c  Check  for  NOV AM  type  data  or  Radio  sonde  type  data  from  N0VAM.INI 

if  (  DataType  .eq.  ' M '  .or.  Datatype  .eq.  *n'  )  then 
i f(RSondef  i  leName  .NE.  "aptmr.dat")  then 
open(unit=24,  fi le=RSondeF i leName,  status* ' old' ) 
open(unit-23,  file='aptmr.dat‘(  status*  'unknown') 

6  read(unit=24,fmt=8,end=10)  a,b,c 
wri te(uni t=23,fmt=9)a,b,c 
goto  6 
endi  f 

8  format(3f 10.2) 

9  format(3(f 10.3,2x)) 

10  continue 

close  (24) 
close  (23) 

call  convert  !  aptmr.dat  — >  convert  — »  patrh.dat 
else 

Irsonde  type  data 

if  (  DataType  .ne.  1 R •  .and.  DataType  .ne.  'r'  )  then 
write(*,*)  '4th  line  of  novam.ini  file  must  indicate' 
write(*,*)  'data  type  in  colunn  13' 
write(*,*)  'n  or  N  for  NOVAM  type  data' 
write!*,*)  'r  or  R  for  RSONDE  type  data' 

GOTO  98  •  DOES  NOT  RECOGNIZE  THE  DATA  TYPE 
endi  f 
endif 

call  filter  !  patrh.dat  -••»  filter - >  sigfile 

call  preant>(SurfObsfi  leName,  preamble)  !  sigfi  le-*->  preamb  -->preamble( ) 

c  (  Read  RADIOSONDE  data  file  ) 

cal l  MAKE_RDATAARY(preamble, rdataary) 
call  CheckRSondeOata(RdataAry) 

c  (  Read  in  SURFACE  OBSERVATIONS  File  ) 

call  Suf ln(SOOata,  SurfObsf i leName) 

c  (  Assign  Surface  temp,  rtl  tumidity,  &  mixing  ratio  if  not  measured  ) 
call  AssignT10_RHH_QP(RDataAry,  SOData) 
c  (  Assign  Rsonde  data  to  GIOBALS  globals  ) 

call  AasignRSondeVars(RDataAry,  RSData,  RSCalc,  SOOata) 

11  continue 

nxm=rdateary(  1,1) 
lestl ine*lnt(rnum) 

if  (rdataary( l as 1 1 i ne , 1 )  .It.  alt)  goto  98 

c  {  Run  the  NOVAM  model  ) 

i f ( rdataary(2, 1 )  .It.  0.0)  goto  77 
i f ( rdataary(4, 1 )  .gt.  0.0)  goto  888 
if(rdataary(2,1)  .gt.  0.0)  goto  999 
write!*,*)  'miss' 
goto  98 
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77  if (  . N01 .  repeatflag)  uri te(*,*) 'Strong  Convection  Case' 

call  NoInversionsCaseCWaveLen,  Alt,  Ext,  Abs,  RH,aO,a1,a2, 

$  a3, rdataary , sodata) 

goto  99 

888  iff  .NOT.  repeatflag)  uri tec*,*) 'Weak  Convection  Layer  Case' 
call  WeakConvect i onCaseC rsdata,Wavelen, Al t , Ext , Abs , 

$  RH,aO,a1,a2,a3, rdataary, sodata) 

goto  99 

999  if(  .NOT.  repeatflag)  write(*,*)'Simple  Boundary  Layer  Case' 
call  SiirpleBLCaseCrscaic.WaveLen,  Alt,  Ext,  Abs, 

$  RH,aO,a1 ,a2,a3,  rdataary, sodata) 

goto  99 

98  ext=-999.9  I  no  data  output 
ebs=-999.9 

s0*-999.9 
e1  =  -999.9 
a2=-999.9 
a3=-999.9 
rh=-999.9 

99  end  I  C  NovamSR  subroutine  ) 
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APPENDIX  C  NO  INVERSION,  CONVECTION  MODEL 


SUBROUTINE  NolnversionsCase( 

$  WaveLen,  alt,  ext,  abs,  rh,a0,a1 ,a2,a3,  RDataAry,  SOOata  ) 

c  (  Purpose:  To  provide  extinction  and  absorption  at  altitude,  alt  and  ) 

c  {  wavelength,  wavelen,  for  the  case  of  no  inversion.  ) 

c  {  ) 

c  C  Called  by:  Novamsr  ) 

c  {  Calls  out:  Optics,  fna,  fnb,  fnc,  palt,  xtoy,  smixr  > 

c  C  ) 

c  (  Preconditions:  ) 

c  (  Global  Variables:  > 

c  {  Revision  History;  ) 


c  (  Date  |  Programmer  I  Remarks  > 

c  { . ; . ) 

c  {  29  Oct  1991  Charles  McGrath  Created  Procedure  from  UNOVAM.NOVAM  ) 

c  {  Nov  1992  Linda  Hitney  Converted  from  PASCAL  to  FORTRAN  ) 

c  {  June  1993  Stuart  Gathman  Converted  into  a  one  input,  ) 

c  (  one  output  subroutine  ) 


real  ko,  ks 

real  smr,  mr 

real  ROataAry(200,3) 

include  'sodata.inc1 
integer  exactflag,  altflag 

cxactf  leg=0 

H2  =  800.0  < (Scale  height  given  by  Wells,  Gel  i  Munn  > 

H3  =  50.0  KScale  height  estimated  by  Gathman  ) 

210  =  10.0 

if  (SOOata. SVis  .GT.  0.0)  then 

!  (Use  input  visioil’ty  to  correct  date) 
if  (SOOata. AMP  .GT.  5.0)  then 

call  Opt i cs(0.3*fna(S00ata.ANP) , 
i  0 .7* fna (SOOata. AMP) , 

fnb( SOOata. UAve), 
fnc(SOOata.UlO), 

SOOata. RHM,  0.55, 
ext,  absorb, 

SOOata. AMP) 


call  0ptics(0.0,  fna(SOOata.AMP), 

fnb(SOOata.UAve),  fnc(SOOata.UIO), 

SOOata. RMH,  0.55,  ext,  absorb, 

SOOata. AMP) 

endif 

extvis  »  3.9/SOOata.SVis 
ko  *  extvis/ext 

else 

ko  *  1.0 
endi  f 

c  At  this  point  ko  is  the  correction  te"m  based  on  svis 
c  Calculate  ks  for  the  correction  term  for  the  sea  salt  terms  from  the 
c  IR  measurements  at  10.6  microns 

c  Use  input  ir  extinction  2  10.6  MICRONS  to  correct  data. 

if  (SOOata. IRExt  .GT.  0.0)  then 

if  (SOOata. AMP  .GT.  5.0)  then 
call  0ptics(  0.3*fna(SOOsta.AMP;, 


t 

S 

t 
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$  0. 7* fna( SOOata.AMP), 

$  fnb(SOOata.UAve),  fnc(SOOata.UlO), 

S  SOOata.RHH,  10.6,  ext,  absorb, 

t  SOOata.AMP ) 

else 

call  Optics(0.0,  fna(SOOata.AMP), 

%  fnb(SOOata.UAve),  fnc(SOOata.UlO) , 

S  SOOata.RHH,  10.6,  ext,  absorb, 

S  SOOata.AMP) 

endi  f 

ks  *  SOOata.IRExt/ext  I  ks  is  the  correction  factor  for  10.6  micron  wavelength 

else 

ks  =  ko 
endi  f 

c  (At  this  point  ks  is  the  correction  term  based  on  irext) 


if  (SOOata.AMP  .GT.  5.0)  then 

cell  Optics(  0.3*ko*fna(S00ata.AMP) , 

S  0.7»ko*fna(S00ata.AHP), 

t  ( (ko*ks)/2.0)*fnb(SOOata .UAve) , 

S  ks*fnc(SO0ata.U10),  SOOata.RHH,  Uavelen, 

S  ext,  absorb,  SOOata.AMP) 

else 
cal  I 


endi  f 


Optics(0.0,  ko*fna(SOOata.AHP) , 

((ko*ks)/2.0)*fnb(SOOata.UAve), 
ks*fnc(SOOata.Ul0),  SOOata.RHH,  UaveLen, 
ext,  absorb,  SOOata.AMP) 


temprhh=SOOata.RHH 


a=Rdataary(  1,1) 

npts  =  int(a) 

ZHgt  *  RdataAryCnpts,  1 ) 

c  set  up  for  4  lognormal  system  for  altitude  ALT. 

if  ((SOOata.AMP  .GT.  5.0)  .AND.  (alt  .IT.  1000.0))  then 
vO  =  0. 3* fna( SOOata.AMP) 
vl  a  0 . 7* f na (  SOOat a . AMP ) 
else 
vO  =  0 

vl  =  fna(SOOata.AMP) 
endif 

ex  =  alt/h2 

if  (ex  .GT.80.0)  then  KThis  is  a  numerical  trick  to  keep  functions) 

V2  =  0.0  ((working  at  small  nunbers  ie  less  than  1/10 '36 . > 

else 

V2  «  fnb(500ata.UAve)*EXP(-alt/H2) 
endi  f 

ex  =  a l t/h3 

if  (ex  .GT.80.0)  then 
V3  =  0.0 
else 

V3  =  fnc(SOOata.UlO)*EXP( -alt /H3 ) 
endif 


c  At  this  point,  We  need  to  find  where  the  input  altitude  is  with  respect  to  the 
c  various  altitudes  on  the  radiosonde  data  array.  We  then  will  find  the  closest 
c  altitude  that  the  radiosonde  uses  just  above  the  input  altitude  and  just  below 
c  the  input  altitude. 
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c  Technique  for  bracketing  the  input  altitude  with  the  two  nearest 
c  sigfile  altitudes. 


a  l  tf lag=- 1 
exactf lag=- 1 
do  10  i*6,npts 

if  (alt  .It.  RdataAry(i,1))  goto  11 
if  (alt  .eq.  RdataAry( i , 1))  goto  12 

1 0  cont i nue 

11  altflag=i 
goto  13 

12  exactflag=i 

13  continue 

if  (exactflag  .gt.  0)  goto  20  Ino  interpolation  necessary  in  this  case 
if(altflag  .eq.  6)  goto  IS 

c  Here  altflag  is  the  index  just  below  the  altitude  and  altflag  ♦  1  is  just  above 
e  the  desired  altitude.  We  will  do  linear  interpolation  to  find  the  require 
c  relative  hunidity  from  the  knowledge  of  the  RdataAry  and  Altflag. 

Theta=(RdataAry(altf  l  ag, 2) -RdataAryfat  tf lag  - 1 ,2)> 
theta=theta*(al t-RdataAry(alt flag- 1,1 ) ) 
theta=theta/(RdataAry(altflag,1)  ■  RdataAry(al tf tag- 1 , 1 )) 
theta-theta  ♦  RdataAry(al tf lag- 1 ,2) 

mr=(RdataAry(altf lag,3)-KdataAry(altf lag-1,3)} 
mr=mr* (alt -RdataAry (el t flea- 1 , 1 } ) 
mr*mr/(RdataAry(altf lag, 1 )  -  RdataAry(al tf lag- 1 , 1 )) 
mr=mr+(RdataAry(altf lag- 1,3)) 
goto  30 


15  rh_at_Z=SOOAT  A . RHH 
goto  AO 

20  Theta=rdataary(exactf lag. 2) 
mr=RdataAry(exactf lag, 3) 

30  cont i nue 

!  ( . 

I  at  this  point  we  need  to  calculate  the  relative  humidity  from 
I  the  potential  temperature,  RdataAry< i ,2)  and  the  mixing  ratio 
I  RdataAry( i ,3).  This  is  accomplished  by  finding  the  saturation 
!  mixing  ratio  at  the  potential  temperature  and  then  the  ratio 
I  of  100  *  r/rs  is  the  relative  hunidity.  Note  that  1  have  a 
I  routine  which  gives  rs  *  0.622  •  vappr(T)  /(p(z>  -vappr(T)) 

I  if  l  know  T  in  degrees  C.  from  List  p308,  we  see  that 
I  th  :  t  *( 1000/p) •  (2/7) 


I  . ) 

testp  —  palt(alt) 

c  Here  tati  is  the  temperature  at  altitude  alt 


tatz  =  (Thcta*273. 15)  *  xtoy< 1000.0/testp,  -0.286)-273.15 
smr  r  1000.0*  smixr(alt,  tatz) 
rh  at  z  =  100.0*mr/smr 
rh'at’z  =  MIN(rh  at  z,  99.9) 

AO  call  '0PTICS(ko*v0,_ko*v1,  ( ( ko+ks)/2 .0}*v2,  ks*v3,  rh_at_z, 
t  Wavelen,  ext,  ebs,  SOOata.AMP) 


rh^rh_at_z 

aO=vO 

a1=v1 

e2=v2 

a3=v3 

END  !  (  NoInversionsCase  ) 
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APPENDIX  D  THE  WEAK  CONVECTION  MODEL, 


subroutine  WeakConvect ionCase( rsdata, 

S  UaveLen,  alt,  ext,  abs,  rh,a0,a1 ,a2,a3,  RDataAry,  SOOata  ) 

c  {  Purpose:  To  provide  extinction  and  absorption  at  elti'ude,  alt  and  } 

c  (  wavelength,  wavelen,  for  the  case  of  a  weak  convection  ) 

c  (  Called  by:  Novamsr  > 

c  (  Calls  out:  Novamw  ) 

c  <  Preconditions:  ) 

c  (  Global  Variables:  > 

c  {-- . > 

t  (  29  Oct  1991  Charles  McGrath  Created  Procedure  from  UNOVAM.NOVAM  ) 

c  <  Nov  1992  Linda  Hitney  Converted  from  PASCAL  to  FORTRAN  ) 

c  (  Jun  1993  Stuart  Gathman  Prepared  for  NOVAMSR  operation  > 

C  (sssi8SE6Xs::azcg8iisss&8ss:ss8sss<s:ssss8sssas8ssssssBBsss:c:s3:ss:x:rs:::) 


real  RDataAry(200,3) 
include  ‘rsdata. inc' 
include  'sodata.inc1 
integer  ALTFLAG, EXACT  FLAG 
real  abs,  ko,  ks 


c  (At  this  point  we  calculate  what  the  effect  of  the  measured  svis  would  be 
c  on  the  the  profile,  this  part  of  the  code  added  1/22/91  by  sgg  > 
c  (Find  what  the  estimated  extinction  would  be  a  0.55  microns) 


if  (SOOata. SVis  .GT.  0.0)  then 
I  (Use  input  visibility  to  correct  data) 
if  (SOOata. AMP  .GT.  5.0)  then 
call  Opt ics(0.3*fna(SOOata.AHP) ,  O.T*fna<SOOata. AMP) , 
%  fnb( SOOata. UAve),  f nc(SOOata .U10) , 

S  SOOata. RHH,  0.55,  ext,  absor,  SOOata. AMP) 

else 

call  Opt icsCO.O,  fna( SOOata. AMP),  fnb(SOOata.UAve) , 

S  fnc(SOOata.UlO), 

S  SOOata. RHH,  0.55,  ext,  absor,  SOOBta.AMP) 

endi  f 


extvis  =  3 .9/S00ata.SVis 

ko  *  extvis/ext  I  (ko  is  the  correction  factor  for  vis  wavelength) 
else 

ko  s  1.0 
endi  f 

c  (At  this  point  ko  is  the  correction  term  based  on  svis) 
c  (Calculate  ks  for  the  correction  term  for  the  sea  salt  terms  from  the 
c  IR  measurements  at  10.6  microns) 
if  (SOOata. IRExt  .GT.  0.0)  then 
I  (Use  input  ir  extinction  S  10.6  MICRONS  to  correct  data) 
if  (SOOata. AMP  .GT.  5.0)  then 
call  Opt ics(0. 3*fne( SOOata. AMP) ,  0.7*fna(S»ata.AMP), 

S  fnb(SOOata.UAve) ,  f nc(SOOata.UIO) ,  SOOata. RHH, 

S  10.6,  ext,  absor,  SOOata. AMF) 


else 

call  Opt i cs(0 .0,  fna(SOOata.AMP),  fnb(SOOata.UAve) , 

S  fnc(SOOeta.UlO), 

S  SOOata. RHH,  10.6,  ext,  absor,  SOOata. AMP) 

endi  f 


1  (ks  is  the  correction  factor  for  10.6  micron  wavelength) 
ks  =  SOOata. IRExt/ext 
else 

ks  =  ko  !  (the  default  case  sets  ks=ko) 
endi  f 


c  (At  this  point  ks  is  the  correction  term  based  on  irext) 


c  Technique  for  bracketing  the  input  altitude  with  the  two  nearest 
c  sigfile  altitudes. 


a 1 1  f  l  ag= - 1 
exact f lag=- 1 
do  10  i =6,R0ATAARY (1,1) 

if  (alt  .It.  RdataAry( i , 1 ) )  goto  11 
if  (alt  .eq,  RdataAry(i,1))  goto  12 

10  continue 

11  a 1 1  f l ag= i 
goto  13 

12  exactflag=i 

13  continue 

lF(exactflag  .gt.  6)  goto  ICO  !no  i<  -polation  necessary  in  this  case 
I F ( a 1 1 f lag  .gt.  6)  goto  50  (interpolate  mmr  and  theta, 
c  SURFACE  CALCULATION 

RH  AT  Z=SOOATA.RHH 


if  (SOOata.AMP  .GT.  5.0)  then 
AO  =  0.3*ko*fna(S00ata.AMP) 

A1  =  0.7*ko*fna(S00ata.AHP) 

A2  =  ( (ko+ks)/2)*fnb(S00ata.UAve) 
A3  =  ks*fnc(S0Cata.Ul0) 
call  Optics(AO,A1,A2,A3, 

S  RH_AT_Z,  WAVELEN, 

S  ext,  abs,  SOOata.AWP) 

else 

AO  =  0.0 

Al  =  ko*f na( SOOata . AMP ) 

A2  =  ( (ko+ks)/2 )*fnb( SOOata. UAve) 
A3  *  ks*fnc(SOOata.UlO) 
call  Opt i cs(A0, A1 , A2, A3, 

S  RH_AT_Z,  WAVELEN, 

$  ext,  abs,  SOOata.AHP) 


endi  f 
goto  500 


c  Here  altflag  is  the  index  just  below  the  altitude  and  altflag  ♦  1  is  just  above 
c  the  desired  altitude.  Ue  will  do  linear  interpolation  to  find  the  require 
c  relative  hunidity  from  the  knowledge  of  the  RdataAry  and  Altflag. 


50  Theta=(RdataAry(altflag,2)-RdataAry(al tf  lag -1,2)) 
theta=theta*(alt-RdataAry(altf lag-1 , 1)) 
theta*theta/(RdataAry(altf lag, 1)  •  RdataAry(altf lag 
*  *1,1)) 
theta=theta  ♦  RdataAry(altflag-1,2) 
mr=(RdataAry(altf lag,3)-RdataAry(altf lag-1 ,3) ) 
mr=mr*(alt-RdataAry(altf lag- 1, 1)) 
mr=mr/(RdataAry(altflag,1)  •  RdataAry(al t f lag- 1 , 1 > ) 
mr=mr+(RdataAry(eltflag-1,3)) 
goto  200 

I  ( . 

I  at  this  point  we  need  to  calculate  the  relative  humidity  from 
!  the  potential  temperature,  RdataAry( i , 2)  and  the  mixing  ratio 
I  RdataAry( i ,3).  This  is  accomplished  by  finding  the  saturation 
!  mixing  ratio  at  the  potential  temperature  and  then  the  ratio 
!  of  100  *  r/rs  is  the  relative  hcmidity.  Note  that  I  have  a 
!  routine  which  gives  rs  =  0.622  *  vappr(T)  /(p(z)  -vappr(T)) 


!  if  I  know  T  in  degrees  C.  from  List  p308,  we  see  that 
i  th  =  t  *( 1000/p) ‘  (2/7) 

!  . ) 

100  Thetasrdataary(exactf lag, 2) 
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mr=Rda taAryC  exac  t  f l ag, 3  J 
200  testp  =  palt(alt) 

c  Here  tatz  is  the  tenperature  at  altitude  alt 

tatz  =  (Theta+273.15)  *  xtoy< 1000.0/testp,  -0.286)-273.15 
smr  =  1000.0*  smixr(alt,  tatz) 
rh_at_Z  =  100.0*mr/smr 
rh_at_z  =  MIN(rh_at_z,  99.9) 

if  (RH  AT  2  .GT.  99.0)  THEN 
Ext  "  =~  999.0 

Absor  =  999.0  !  {!  extinction  and  absorbtion  cannot  be  calculated) 

else 


!  (find  A' s) 

call  novamw(RS0ata,Alt,ko, 

0, 

AO,  SOOata) 

cal  l 

novamw(RSData, Al t , ko. 

1, 

Al,  SOOata) 

cal  l 

novamw(RSData,Al t , ( (l  o*ks)/2) , 

2, 

A2,  SOOata) 

cal  l 

novamw(RS0ata,Alt,ks, 

3, 

A3,  SOOata) 

endi  f 

!  (calculate  optics) 

call  Optics(A0,  A1,  A2,  A3,  SOOata.RHH,  aavelen.  Ext, 
*  Abs,  SOOata. AMP) 

500  RH=RH  AT  Z 


end  !  subroutine  WeakConvect i onCase 


45 


APPENDIX  E  THE  SIMPLE  BOUNDARY  LAYER  CASE  (SINGLE 

INVERSION) 

SUBROUTINE  Simple8LCase(rscalc,WaveLen,  Alt,  Ext,  Abs, 

S  RH,aO,a1 ,a2,a3, rdataary.sodata) 


c  {  Purpose:  Mixed  Boundary  Layer  Case  (formerly  called  NOVAMC)  ) 

c  (  Uses  Davidson-Fairall  model  ) 

c  (  Called  by:  NOVAMSR  > 

c  (  Calls  out:  Bulk,  InitPOataVector,  > 

c  (  Uecalc,  Oepo.ol,  Uhiteflux,  ) 

c  (  Optics,  fna.fnb,  fnc,  Rh,  > 

c  {  RealToStr  ) 

c  (  Preconditions:  > 

c  {  Global  Variables:  (many  from  GLOBAIS)  } 

c  (  Revision  History:  > 

c  { . ) 

c  (  Date  |  Programmer  |  Remarks  > 

c  ( . > 

c  (  29  Oct  1991  Charles  McGrath  Created  Procedure  from  UNCVAM.NOVAM  > 

c  (  Nov  1992  Linda  Hitney  Converted  from  PASCAL  to  FORTRAN  > 

c  (  Jun  1993  Stuart  Gathman  Prepared  for  NOVAMSR  operation  > 


include  'rscalc.inc' 
include  'sodata.inc' 

real  PData(12) 

integer  exact f lag, al tf lag 

real  R0ataAry(200,3) 

real  R0(3)  /0.03,  0.24,  2.0/ 

real  GAMA(3)/0.0,  0.0,  0.0/ 

real  extvis,  ko,  ks 

real  Lcp 


common/globals/dte,dqw,wthe,wq,ustar, t star, qs tar , tstr, tsky 

c  begin  subroutine  SimpleBLCase 

Z10  =  10.0  !  from  GLOBALS  (  altitude  of  10  m  > 

Lcp  =  2460.0  !  from  GLOBALS 


C  < . . ) 

c  {  Ue  need  to  define  dte,  dqw,  gamap,  gamar  &  zinv  at  this  time!  ) 

c  (  In  order  to  do  this  calculation  we  must  assume  that  all  of  ) 

c  {  this  data  is  available  before  the  subroutine  is  called.  > 

e  ( . > 

c  ( .  Assign  Radiosonde  Matrix  values  to  more  descript  structure  - > 

c  (  RstIO  is  surface  potential  temp  from  radiosonde  ) 

c  (  tRsqp  is  surface  mixing  ratio  from  radiosonde  ) 

c  <  Zbase  is  height  of  base  of  cloud  layer  ) 

c  (  Tbm  is  potential  temperature  at  cloud  base  -  > 

c  (  On*>  is  mixing  ratio  at  cloud  base  •  ) 

c  (  Tunits  should  be  1  i f  potential  temperature  C.  ) 

c  (  Tbp  is  potential  temperature  at  cloud  base  ♦  > 

c  {  Qbp  is  mixing  •■atio  at  cloud  base  ♦  > 

c  {  Zi  is  height  of  the  cloud  top  > 

c  (  Thim  is  potential  temperature  at  cloud  top  •  ) 

c  (  Dim  is  mixing  ratio  at  cloud  top  •  > 

c  (  Qunits  should  be  1  if  mixing  ratio  in  g/kg???”  ???  ) 

c  (  Tip  is  potential  temperature  at  cloud  top  ♦  ) 

c  (  Qip  is  mixing  ratio  at  cloud  top  ♦  ) 

c  ( . - . ) 


rRstlO  =  RdatbAry(1 ,2) 
rRsqp  =  RdataAry( 1 ,3) 
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rZbase  =  RdataAry(2, 1 ) 
rTbm  =  RdataAry(2,2) 
rQbm  =  RdataAry<2,3) 
rTunits  =  RdataAry(3, 1 ) 
rTbp  =  RdataAry(3,2) 
rObp  =  RdataAry(3,3) 
rZi  *  RdataAry(4, 1 ) 
rThim  =  RdataAry(4,2) 
rOira  *  RdataAry(4,3) 
raunits  *  RdataAry(5, 1 ) 
rT ip  =  RdataAry(5,2) 
rOip  =  RdataAry(5,3) 

c  <-•-  Initialize  variables  ---) 

Dte  =  rTbp- rTbm 

Dqw  =  rQbp-rQbm 

Gamap  =  (rTbm  -  rRst10)/rZbase 

Gamer  =  (rQbm  -  rRsqp)/rzbase 

c  {-•-  Find  Longwave  Radiation  Fluxes  to  calculate  sky  temperature,  Tsky 
call  sky2(alt,  RdataA-y,  SOOata.TIO,  SOOata.Op,  tsky) 


c  <---  Calculate  ustar,  Tstar,  varQstar,  and  Tstr  -•-} 

call  BulkCSOOata.UIO,  RSCalc.thab,  RSCalc.Tdelta,  RSCalc.Odelta, 
S  Ustar,  Tstar,  Qstar,  Tstr) 

c  { —  Calculate  Uq,  Ut,  Utv,  wte,  Wthe  — ) 

Wt  =  -Tstar  *  ustar 

Wtv  =  -Tstr  *  Ustar 

Uq  =  -Qstar  *  Ustar  /  1000.0 

Wte  =  Wt  ♦  RSCALC . F thet  *  Lcp  *  Wq 

wthe  =  -ustar  *  Tstar  «■  2460.0  *  (-Ustar  *  Qstar)  /  1000.0 
c  (--•  Calculate  Ue  and  Wstr  ---) 

call  UecalcCPOata,  RSCalc,  SOOata) 


tempwesRSCalc.We 

c  {---  Calculate  ???  ---} 

Rrhun  =  98.0  !  (I  rh  used  in  depovel  routine) 

do  I  =  1  ,  3 
dsize  =  R0( I )/5.0E*05 

call  DepoveKi,  dsize,  Rrhun.  RSCalc. thab-273. 15, 

S  Ustar,  Vd,  Vgdry,  SOOata) 

!  (!  Note  that  RO  is  radius  in  microns,  while  the  3rd  depovel  ) 
I  (  size  parameter,  AO  is  diameter  in  meters.  ) 

call  Uhitef lux(Sr,  SOOata. U10,  R0(D) 

if  (I  .EO.  1)  then 
Xsr  =  FNA(SOOata.AMP) 

Xp  =  Xsr 
endi  f 

if  (I  .EQ.  2)  then 
Xsr  =  FNB(SOOata.UAve) 

Xp  =  0.0 
endi  f 

if  (l  .EQ.  3)  then 
Xsr  =  FNC( SOOata .U10) 

Xp  =  0.0 

endi  i 
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tempwe=RSCalc.We 

I  ( !  make  initial  guess  at  tttt) 

Tttt  *  1 ,5*(Sr-Vcf*Xsr+2.5*RSCAlc.Ue*(Xsr-Xp)> 

temp=r$calc.zinv 

temp^rscalc.wstr 

GAMA(I)  =  Tttt/<RSCalc.Zinv*RSCalc.Wstr) 

Tttt  =  1 ,5*(Sr-Vd*Xsr+2.S*RSCalc.We* 

$  (RSCalc .Zinv*GAMA( 1 j*Xsr-Xp) ) 

I  (I  cac.  gama  after  first  interation  in  tttt) 
GAMA(l)  =  Tttt/(RSCalc.Zlnv*RSCalc.WStr) 

GAMA(i)  =  - 1 .0*GAMA( i ) 

enddo  I  (for  loop) 


c  (  At  this  point  we  calculate  what  the  effect  of  the  measured  svis  would  ) 

c  (  be  on  the  the  profile,  this  part  of  the  code  added  1/22/91  by  sgg  ) 

c  {  Find  what  tht  estimated  extinction  would  be  a  0.5S  microns  ) 

if  (SOOata. SVis  .GT.  0.0)  then 

!  (Use  input  visibility  to  correct  data) 
if  (SOOata.AMP  .GT.  5.0)  then 
call  Optics(0.3*fna(SOOata.AMP), 

*  0.7*fna( SOOata. AMP), 

*  fnb(SOOata.UAve),  fnc(SOOata.UIO), 

*  SOOata.RMH,  0.55,  ext,  absorb,  SOOata.AMP) 
else 

call  Optics(0.0,  fna(SOOata.AMP),  f nb( SOOata.UAve) , 

$  fnc(SOOata.UlO),  SOOata.RHH,  0.55, 

*  ext,  absorb,  SOOata.AMP) 
endif 

extvis  s  3.9/SOOata.Svis 
ko  =  extvis/ext 

else 

ko  =  1.0 
endif 

c  (  At  this  point  ko  is  the  correction  term  based  on  svis  ) 


c  ( 
c  ( 


-  Calculate  ks  tor  the  correction  term  for  the  sea  salt  terms 

-  from  the  IR  measurements  at  10.6  microns 
if  (SOOata. IRExt  .GT .  0.0)  then 

!  (Use  input  ir  extinction  3  10.6  M1CROMS  to  correct  data) 
if  (SOOata.AMP  .GT.  5.0)  then 
call  Optics(0.3*fna(SOOata.AMP), 

S  0. 7* fna( SOOata. AMP), 

*  fnb(SOOata.UAve),  fnc(SOOata.UlO), 

*  SOOata.RHH,  10.6,  ext,  absorb,  SOOata.AMP) 


S 

S 


else 

call  Optics(0.0,  fna(SOOata.AMP) ,  fnb(SOOata.UAve), 
fnc(SOOata.UIQ),  SOOata.RHH,  10.6, 
ext,  absorb,  SOOata.AMP) 


endif 


) 

) 


ks  -  SOOata. IRExt/ext  1  (ks  is  the  correction  factor  for 
!  10.6  micron  wavelength) 

else 
ks  =  ko 
endi  f 


c  {  At  this  point  ks  is  the  correction  term  based  on  irext  ) 

if  (SOOata.AMP  .GT.  5.0)  then 

cal l  Opt i cs ( 0. 3* ko*fna( SOOata. AMP), 

S  0. 7*ko*fna( SOOata.AMP), 

*  ((ko*ks)/2)*fnb( SOOata.UAve), 
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$ 

s 


ks*fnc(SOOata.UlO),  SOOata.RHH, 
UaveLen,  ext,  absorb,  SOOata.AMP) 


else 

call  Optics(0.0,  ko*fna(SOOata.AHP), 

S  ((ko+ks)/2)*fnb(S00ata.UAve), 

$  ks*fnc(SOOata.UlO) ,  SOOata.RHH,  WaveLen, 

$  ext,  absorb,  SOOata.AMP) 

endif 

tenprhhsSOOata.RHH 

c  Technique  for  bracketing  the  input  altitude  with  the  two  nearest 
c  sigf ile  altitudes. 

al tf lag=- 1 
exactf lag=- 1 
do  10  i=6,R0ATAARY(1,1) 

if  (alt  .It.  RdataAry( i , 1 ) )  goto  11 
if  (alt  .eq.  RdataAry( i , 1 ) )  goto  12 

10  continue 

11  a 1 1  f l ag= i 
goto  13 

12  exactflag=i 

13  continue 

If(exactflag  .gt.  6)  goto  100  Ino  interpolation  necessary  in  this  case 
lF(altflag  .gt.  6)  goto  50  ^interpolate  mar  and  theta, 
c  SURFACE  CALCULATION 

RH_AT_Z=SOOATA .RHH 

if  (SOOata.AMP  .GT.  5.0)  then 
A0  =  0. 3* ko*fna( SOOata.AMP) 

Al  =  0.7*ko*fne(SOOata . AMP) 

A2  =  ( (ko*ks)/2)*fnb(SOOata.UAve) 

A3  =  ks*fnc(SOOata.Ul0) 
call  Optics(A0,A1,A2,A3, 

S  RH  AT  Z,  UAVELEN, 

S  ext,  abs,  SOOata.AMP) 

else 

A0  x  0.0 

Al  =  ko*fna( SOOata.AMP) 

AH  =  ((ko*ks)/2)*fnb(SOOata.UAve) 

A3  =  ks*f nc(SOOata.UIO) 
cal'.  Optics(A0,A1  ,A2,A3, 

%  RH_AT_Z,  UAVEIPN, 

i  ext,  ebs,  SOOata.AMP) 


endi  f 


goto  5000 


c  Here  altflag  is  the  index  just  below  the  altitude  and  altflag  ♦  1  is  just  above 
c  the  desired  altitude.  Ue  will  do  linear  interpolation  to  fird  the  require 
c  relative  humidity  from  the  knowledge  of  the  RdataAry  and  Altflag. 


50  Theta=(RdataAry(a( tflag,2)-RdataAry(altflag-1,2)) 
theta=theta*(al t-RdataAry(al t f lag- 1 , 1 ) ) 
theta=theta/(RdataAry(al t f l ag, 1 )  -  RdataArylaltf lag 
*  -1,1)) 
thete=theta  ♦  RdataAry(altf lag-1,2) 
mr=(RdataAry(al tf l ag,3)-RdataAry(al tf  l  ag- 1,3)) 
mr=mr»(al t -RdateAry(altf lag-1 , 1 ) ) 

mr=mr/(RdataAry(al  t f lag, 1 )  -  RdataAry(al t f l ag- 1 , 1 ) ) 
mr=rrr+(RdataAry(al  tf  lag  - 1 , 3)) 
goto  200 
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!  < .  . 

i  at  this  point  we  need  to  calculate  the  relative  hunidity  from 
I  the  potential  temperature,  RdataAry( i ,2)  and  the  mixing  ratio 
!  RdataAry( i ,3) .  This  is  accomplished  by  finding  the  saturation 
!  mixing  ratio  at  the  potential  temperature  and  then  the  ratio 
t  of  TOO  *  r/rs  is  the  relative  hunidity.  Rote  that  I  have  a 
!  routine  which  gives  rs  =  0.622  *  vappr(T)  / ( p( z >  -vappr(T)) 

!  if  1  know  T  in  degrees  C.  from  List  p308,  we  see  that 
!  th  =  t  *<1000/p)‘  (2/7) 


I  . > 

100  Theta=rdataary(exectf lag, 2) 

mr=RdataAry (exact  flag, 3) 

200  testp  =  palt(alt) 

c  Here  tatz  is  the  temperature  at  altitude  alt 


tatz  =  (Theta*273. 15)  *  xtoy(1000.0/teotp,  -0. 286)-273 . 15 
smr  x  1000.0*  smixr(alt,  tatz) 
rh_et_z  x  100.0*mr/smr 

if  (RH_AT_2  .le.  99.0)  goto  2000 
Ext  x~  999.0 

Absor  =  999.0  !  (!  extinction  and  absorbtion  cannot  be  calculated) 

goto  5000 

2000  Alt_of_obs  =  alt 

!  (????!  CALL  Parcel2(Pdata,  Rh,  01,  02,  03,  DA,  05,  D6,  07,  D8)) 

I  {find  A0  &  A1> 

if  (Alt_of_obs  .LE.  RSCalc.ZInv)  then 
if  (SOOata.AMP  .GT.  5.0)  then 
Al  =  Alt  of  obs*GAMA( 1 )*f na( SOOata. AHP ) 

A0  x  0.3~*  Al 
Al  x  0.7  *  Al 
else 

A0  x  0.0 

Al  x  Al t_of_obs*CAMA( 1 )*fna( SOOata. AHP ) 
endi  f 
else 
A0  =  0.0 

Al  =  RSCalc.Zlnv*GAMA( 1 )*fna( SOOata.AMP) 
endi  f 

!  (find  A2) 

if  ((Alt_of_obs.LE. RSCalc.ZInv)  .AND. 

$  (Al t~of”obs*GAMA(2)+fnb(S00ata,UAve) .GT .0.0) )  then 

A2  =  Alt_of_obs*GAMA(2)*fnb(S00ata,UAve) 
else 

A2  =  0.0 
endi  f 

!  (find  A3) 

if  ((Alt_of_obs  .LE.  RSCalc.ZInv)  .AN0. 

S  (Al t~of”obs*GAMA (3) *fnc( SOOata. U10)  .GT.  0.0))  then 

A3  =  Al t_of_obs*GAMA(3)+fnc(SOOata.UlO) 
else 
A3  =  0.0 
endi  f 

call  Opt ics(ko*AP,  ko*Al,  ( (ko*ks )/2)*A2,  ks*A3,  rh_at_z, 

$  WaveLen,  ext,  Abs,  SOOata.AMP) 


5000  rh=rh_at_z 
a0=ko*a0 
a1=ko*a1 

a2=((ko*ks)/2)*ai 

a3=ks*a2 

end  !  (  procedure  SimpleBLCase  ) 


APPENDIX  F  FUNCTIONS  USED  IN  NO  YAM  SR 


FUNCTION  sgn(x) 
if  (x  .eq.  0.0)  then 
sgn-0.0 

else 

sgn=sign(1 ,0,x) 
endi  f 
return 
end 


FUNCTION  Potential_temperature(p,at) 

Potent ial_temperature=(at*273. 15 )*x toy ( 1000.0/p, 0. 286)  -273. IS 
end  l  (end  Potent ;al_temperature> 


FUNCTION  rMixing_ratio(h,at,p) 

rMixing_rat io=h*620.0*vappr(at )/( 100.0*{p-vnppr(at ) ) ) 
end  !  tend  rMixing_ratio) 


FUNCTION  PowerlO(X)!  real)  :  real; 

c  {  Purpose:  Calculate  the  value  of  10  raised  to  the  X  power, 
c  { 
c  ( 

c  {  Preconditions: 
c  <  Global  Variables: 
c  {  Revision  History: 

e  ( . 

c  (  Oate  |  Programmer  |  Remarks 

c  . . 

c  <  02  Oct  1W1  I  Charles  McGrath  I  Comments  added 
c  {  Nov  1992  I  Linda  Hitney  ]  Converted  from  PASCAL  to  FORTRAN 

q  (=rss=:ss=ss=:=s=:=5::5ssrssssss2s:;;;sss:s:ssss:;s;:ss:s:s:5s:s:255ss; 

c  begin 

Power  10  e  exp(X*2. 3025850930) 
end  •  tfunciton  PowerlO  } 


=  > 
> 
> 
> 
> 
) 
> 

-> 

> 

> 

> 

> 


fUNCTION  Vappr(T) 

(  Purpose:  To  calculate  the  saturation  vappor  pressure  over  water  at  the 
temperatue  T. 


P record i tions: 
Global  Variables: 
Revision  History: 


c 

c  t 

c 

c 

c 

c 

c 

c  ( 


Oate  | 

Programmer  | 

Remarks 

9/29/87 

Stuart  Gathmen 

Function  designed 

02  Oct  1991 

Charles  McGrath 

Comments  added 

Nov  1992 

Linda  Hitney 

Converted  from  PASCAL  to  FORTRAN 

I  This  is  an  approximation  to  the  Goff-Gratch  Temperature,  Saturated 
i  Vapor  pressure  over  liquid  water  formula.  It  was  described  by 
'  Richards  (1971)  and  Wigley(1974).  In  this  subroutine,  1  is  in 
!  degree  C,  and  vappr(zzi)  is  expressed  in  mbs. 


R 1  = 
R2  = 
R3  = 
R4  - 
R0  = 


13.3185 
1  .976 
0.6445 
0.1299 
1013.25 


If  < ( T  .GT.  50.0)  .OR.  (T  .IT.  -50.0))  wr i tc . * . 7000)  T 
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9000  format( 1  temperature  inpot  to  Vappr  function  is  out  of  range: 

$  f 12.6) 

TOO  =  1. 0-373. 0/<T+273.0) 

Vappr=RO*EXP(R1*TOO-R2»tOO*tOO-R3*tOO*tOO*tOO-R4‘tOO*tOO*tOO‘tQO) 
end  I  {function  Vappr) 


FUNCTION  Palt(Z) 

c  {  Purpose:  To  calculate  the  pressure  at  an  altitude  Z  assigning  a  ) 

c  {  standard  atmosphere.  ) 

c  {  ) 

c  {  Preconditions:  > 

c  {  Global  Variables:  ) 

c  {  Revision  History:  ) 

c  { . ) 

c  {  Date  |  Programmer  |  Remarks  ) 

c  { . ) 

c  {  9/29/87  Stuart  Gathman  Function  coded 

c  {  02  Oct  1991  Charles  McGrath  Comments  added  ) 

c  {  Nov  1992  Linda  Hitney  Converted  from  PASCAL  to  FORTRAN  ) 

c  Converts  z  in  meters  to  pressure  (mb).  This 
c  is  a  rough  fit  to  the  NACA  standard  atmopshere 
c  data  found  in  table  63,  p267  of  List.) 


if  (Z.GT. 500.0)  then 
paLt  =  1021.38  *  exp(-1.2739E-4  *  Z> 
else 

palt  =  1013.0  •  55.0  *z  /  500.0 
endi  f 

end  I  Palt 


FUNCTION  Altitude(P)  !  <0K  9/29/97) 

C  (=sscscsesss:s:scs*sss5ssssssc==s=sv=sssfisss=3ssssss=sssss==2====sss=sssssz} 

c  {  Purpose:  To  calculate  the  altitude  in  a  standard  atmosphere  which  ) 

c  {  would  have  a  pressure  of  P.  ) 

c  {  ) 

c  {  Preconditions:  ) 

c  {  Global  Variables:  ) 

c  (  Revision  History:  ) 

c  { . ) 

c  (  Date  |  Programmer  j  Remarks  ) 

c  { . ) 

c  {  9/29/87  Stuart  Gathman  Function  coded  ) 

c  {  02  Oct  1991  Charles  McGrath  Comments  added  ) 

c  {  Nov  1992  Linda  Hitney  Converted  from  PASCAL  to  FORTRAN  ) 

(I  T  .  function  computes  altutude  in  meters  from  pressure  in  mbs. 

I  Th i formula  is  a  fit  to  the  NACA  standard  lower  atmosphere  data 
!  (Smithsonian  Met.  Tables  *63,  List  (1968))) 


!  begin  (altitude) 
a 1 1 i t  ude  =  0.0 

if  (P.GT. 1013.0)  return 
if  (P.GT. 953.0)  then 

altitude  =  9.09‘( 1013 .0-P) 

else 

altitude  =  7850. 0*log( 1021 .38/P) 

endi  f 

end  I  altitude 
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FUNCTION  C10<  Iws,  Ilws,  Iq) 

C  (inunmiNiinnnininiiunnnnttiimiuiuinniinniuiumn) 
c  (  Purpose:  To  calculate  the  drag  coefficient  give  a  current  wind  speed.  > 

c  <  > 

c  <  Used  in:  functions  Zzero,  Fqstsr,  Fmlnt,  and  Thttar  > 

c  <  Preconditions:  > 

c  <  Global  Variables:  > 

c  <  Revision  History:  > 

c  < . ) 

c  {  Date  |  PrograMRcr  |  Remarks  > 

c  < . > 

c  <  Sept  1987  Stuart  Gsthmsn  Function  coded  > 

c  {  02  Oct  1991  Charles  McGrath  C cements  added  > 

c  {  Nov  1992  Linda  Hltney  Converted  from  PASCAL  to  FORTRAN  > 


C  {>URn«ufs«i«ttiRa«iRtta«muBiataB«MiRnna8iMtMiai*RtitRiBfM>aRtn) 


c  <1  This  subroutine  calculates  the  drag  coefficient,  if  uind  speed  at 
I  10  meters  is  measure, 

I  Deacons  suggested  form  is  used  :  Roll  (1965),  p161. 

I  if  no  uind  is  measured,  a  constant  value  is  used, 
c 


If  (lius.NE.'l)  than 

CIO  »  0.001 1+4. 0£ -05*1  us 

else 

Iq  »  lq-1 
CIO  ■  0.002 
end  I  f 

end  I  {function  CIO) 


FUNCTION  Zzerodlus,  Iws,  Iq) 


e  <« 
c  { 
c  { 
c  { 
e  { 
c  { 
c  { 
c  (- 
e  { 
c  <• 
c  { 
c  { 
c  { 
c  <» 
c  {I 
I 
I 
I 


mnununnunm 


Purpose:  To  calculate  the  dynamic  roughness  of  the  sea  surface. 


Preconditions: 
Global  Variables: 
Revision  History: 


Oats 


Progra 


Rmserks 


Sept  1987 
02  Oct  1991 
Nov  1992 


Stuart  Gathman 
Charles  McGrath 
Linde  Hltney 


Function  coded 
Cosnents  added 

Converted  from  PASCAL  to  FORTRAN 

laaaaBBBaaBBaaBBaaBBamaBaaaeaBaBaaaBavaBi 


This  subroutine  calculates  the  dynamic  roughness,  zzero  in  meters  as 
a  function  of  uind  speed  following  Chamock(1955)  and  expresses 
friction  velocity  in  terms  of  the  drag  coefficient  and  measured 
uind  spd.) 


•*> 

> 

) 

) 

) 

) 

> 

-•) 

> 

--) 

) 

) 

> 

— > 


if  (I (ue.NE.-1)  then 

Zzero  ■  CIOOus,  I  iws,  lq)*0. 000333*1  ws*l us 

else 

Iq  ■  lq-2 
Zzero  ■  1.0C-05 
endif 

end  I  Zzero 
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FUNCTION  SmixrlX,  T) 

C  (•intttiBNaiiiifliniitmanniiiiiiaiiimniiiiiHiiiicia3BBcaicisc:uii) 


c  C  Purpose:  Calculates  saturation  mixing  ratio  at  altitude  x  and  t e*p  T  ) 

e  <  > 

c  C  Precondition*:  > 

e  <  Olobet  Variable*:  > 

c  {  Revision  Hiatory:  > 

c  < . ) 

c  (  Oata  I  Programmer  |  Remark*  ) 

e  < . J 

c  {  Sept  1967  Stuart  Cathman  Function  coded  ) 

C  <  02  Oct  1991  Charla*  NcOrath  Coament*  added  ) 

c  <  Nov  1992  Linda  Hitnay  Convartad  from  PASCAL  to  FORTRAN  ) 


C  <— —————ao— aa—o—aM—WMW—aaaa—) 

c  Cl  Calculate*  the  aaturation  mixing  ratio  in  kg/kg  or  g/g  at  height  x 
l  and  taaparatur*  T(c).> 

vpam  ■  vappr(t) 

Saixr  ■  0.622*vpsa/<PaLt<x)*Vpam) 
and  I  Smixr 


FUNCTION  Fqstarl  l<*>t,  !Im,  In*.  Iaat,  lq> 

c  <  Purpoaa:  ) 

c  C  Thia  ie  the  "Friction  Nixing  Ratio"  used  in  fi2  and  calculated  using  ) 

c  C  the  approximations  of  the  bulk  aerodynmaic  method:  Roll(1965)  p252,272  } 

cl  > 

c  C  Preconditions:  > 

c  C  Global  Variables:  > 

c  <  Revision  History:  > 

c  C . ) 

C  C  Date  |  Programmer  |  Remarks  > 

c  <■ . > 

c  C  Sept  1987  Stuart  fiathman  Function  coded  > 

c  C  02  Oct  1991  Charles  McGrath  Comments  added  > 

c  C  Nov  1992  Linda  Nitney  Converted  from  PASCAL  to  FORTRAN  > 


C  (awiWH-wMmmMMmMMiMniimmmmmMwmiM ««»»■■■■■■■> 


Ik  *  0.38 

ZZ  ■  10.0 

yy  ■  lfet/10.0 

Qa  ■  Smixrizz,  yy) 

zz  ■  0.0 

yy  ■  i tat/10.0 

00  ■  0.98*Smixr(zz,  yy) 

C«  ■  ClOdwt,  Hu*.  Iq) 
Fqatar  »  SORt(Ca)"(0a-O0)/Fk 
end  I  'tfitsr 


FUNCTION  Th(  T,  2) 

C  (aasaaaaaaaaaanaimaniaasaaaaaaaaaiaaaMMiamaiwuiamiiaMiimiin) 

c  <  Purpose:  converts  tamparature  (K)  to  potential  tsmporature(k)  at  alt  z  > 

c  <  > 

c  {  ) 

c  <  Preconditions:  ) 

c  {  Global  Variables:  } 

c  {  Revision  History:  ) 

e  l . ) 

c  C  Oat*  |  Programmer  |  Remarks  ) 

c  ( . ) 

c  <  Sept  1987  Stuart  Gathman  Function  coded  ) 

c  C  02  Oct  1991  Charles  McGrath  Content*  added  ) 

c  {  Nov  1992  Linda  Hitney  Converted  from  PASCAL  to  FORTRAN  ) 


C  {asasaaaasaassssasssaBSassasasaasaaasaassssasa*aa*SBSBSBB*SBaBasaaasaaaaaas} 

Th  -  T*£XP(0.2S6* log(1000.0/Palt(Z))} 
end  t  Th 
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Sept  1987  Stuart  Gathman  Function  coded 

02  Oct  1991  Charles  McGrath  Caments  added 

Nov  1992  Linda  Mltney  Converted  fra 


Converted  fra*  PASCAL  to  FORTRAN 


If  (ttws  .60.  >1)  then 

FMLnt  ■  *100.0 

tq  ■  Jq-2 

else 

TO  -  273.15*lsst/10.0 
Ta  ■  273.15*lat/10.0 
Ca  ■  C10(lws,  Ilws,  lq) 

X  >  TO*SQRt(Ca)*0.2646*lws*lws 
ZZl  ■  0.0 
zz2  ■  10.0 

Y  ■  9.8*0.38*(Th(T0,  zz1)-Th<Ta,  zz2>> 
FnLnt  ■  -X/T 
end  If 

end  l  FnLnt 


FUNCTION  Qz( 1 1  ws,  Iws,  lq,  last,  Idpt,  2,  tat) 

C  (•■■■■•nMinaiinBninninnHsuiuuinMmminitiiiinmuaia 

c  (  Purpose:  This  subroutine  calculates  the  afxlng  ratio  (Oz)  in  g/g 
c  C  at  altitude,  z  in  an  atmosphere  which  obeys  a  Log-Linear 

c  <  relationship  :  Roll(196$),  p273. 

c  {  Preconditions: 
c  <  Global  Variables: 
c  (  Revision  History; 


Programmer 
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FUNCTION  ThaterOat,  liws,  Iws,  last,  lq> 

C  {«amtm«iaiia«um»HNa>sM*i«t«tntv«aiiaai«t»tsB8iESc3snnB>iai»K) 


c  (  Purpose:  Thia  ia  the  "Friction  Potential  Temperature"  used  in  the  ) 
c  <  calculation  of  thi  using  the  approximation  of  the  bulk  ) 
c  (  aerodynamic  a>ethod;Roll(1965)  pages  252  &  272.  ) 
c  C  Preconditions:  > 
c  {  Global  Variables:  > 
c  {  Revision  History:  ) 


c  (  Oats  |  Programmer  |  Remarks 


c  C  Sept  1987  Stuart  Gathamn  Function  coded  ) 
c  C  02  Oct  1991  Charles  McGrath  Cosnents  added  ) 
c  C  Nov  1992  Linda  Hltney  Converted  from  PASCAL  to  FORTRAN  > 

C  (aBaraaMMuaaitaRiiifliaaaaitaaMiaasiaiiiaaaaBaaiiaasasaiaaaiaaaaaaaBaaai) 


Fk  «  0.58 

Ta  •  273.15+lat/10.0 
TO  •  273.15+lest/IO.O 
Ca  >  ClOdws,  liws,  Iq) 
nl  «  10.0 
112  ■  0.0 

Thatar  ■  SQRt(Ca)*<ThCTa,  n1)-Th(T0,  zz2))/Fk 
end  I  Thatar 


FUNCTION  Thzdiws,  Iws,  Iq,  last,  lat,  Z) 

C  (anwWMaaaiw»»am»Maiiaw«i8iiaaaaaiwa8ai»ia8ti»wta»iai«Miiaia»iB) 

c  (  Purpose:  This  function  calculates  the  potential  temperature  > 

c  (  at  altitude  z  in  an  atmosphere  which  obeys  a  Log-Linear  > 

c  <  relationship  :  Roll(1965),  p  273.  ) 

c  <  > 

c  (  th(z)  -  th(0)  »  thstar*(log((z*z0)/z0)  ♦  aLpha  •  z  /  L  ) 

c  (  where  aLpha  ■  4.8  ) 

c  (  Preconditions:  > 

c  <  Global  Variables:  ) 

C  (  Revision  History:  > 


c  {  Oate  |  Programmer  |  Reamrks  > 

c  { . > 

c  <  Sept  1987  Stuart  Gathman  Function  coded  > 

C  {  02  Oct  1991  Charles  McGrath  Comments  added  > 

c  {  Nov  1992  Linda  Hltney  Converted  from  PASCAL  to  FORTRAN  > 

C  (imiiiiifininnmiiiiinmnnmniiHiinuinnninmHinnnu) 


TO  ■  273.15+lsst/10.0  I  <T0  is  the  sea  surface  teap  in  K.) 

X  ■  0.0 

ThO  ■  Th(T0,  x)  I  (ThO  is  the  "potential  taeperature"  at  surface.) 
20  •  Zzerodiws,  Iws,  Iq) 

X  ■  (Z+20)/Z0 

FL  »  FaintUws,  liws,  last,  lat,  Iq)  I  (Monin  Obukhov  nixing  Length) 
Tatar  *  Thstsrdat,  liws,  Iws,  last,  Iq) 

Thz  ■  Th0+Tstar*( log(X)*4.8*Z/FL) 
end  I  Thz 


FUNCTION  Vp(  R,  Z) 

e  . . . . 

c  (  Purpose:  To  convert  nr(g/kg)  at  z  to  vp(ab)  ) 

c  (  Revision  History:  ) 

c  ( . ) 

c  (  Oate  |  Programmer  )  Remarks  ) 

c  ( . ) 

c  (  Sept  1987  Stuart  Gathman  Function  coded  ) 

c  (  02  Oct  1991  Charles  McGrath  Comments  added  ) 

c  {  Nov  1992  Linde  Hltney  Converted  from  PASCAL  to  FORTRAN  ) 

C  (unMmii>ininuinHMniinmi>nm»mu>»»nnii.n«n>mu) 

Vp  •  PaLt(Z)*R/v0.622*R) 
and  I  Vp 
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real  FUNCTION  LOGIO(X)!  real)  :  r«al; 

C  {••naiiiiimciiiiSsitvaitiBMseisstcaaiseaiiccKxsBSK.iszsissseESs:! 

c  C  Purpose:  Celcutete  log  to  bite  10  of  the  argument. 


c  { . 

c  C  Date 

e  ( . . 

c  c  sapt  1987 
c  C  02  Oet  1991 
c  (  Mov  1992 

C  (waataawwaai 


Programmer 


Stuart  Gathmen 
Chariot  McGrath 
Linda  Hitney 


Revision  History 


Function  coded 
Comments  added 

Converted  from  PASCAL  to  FORTRAN 


If  (x.LY.0.0)  nrite(*,")  'error  In  LoglO  routine' 

LOGIO  ■  log(x)/Log(10.0) 

and 


> 

> 

> 

> 

> 

> 

> 

> 


FUNCTION  ZconC  Tasa,  Rsa,  Zss) 

C  {i«*Baaa8aBMaiai*a«a«>8BRaiaiiiBaaaMiaftiia8aa8BMataaiasia«MaaaBisaieMK} 

c  (  Purpose:  This  subroutine  calculates  the  lifting  condensation  level  Uiere  > 
c  (  taaa  is  the  potential  temperature  in  Kelvin  at  Alt,  zsa  and  Rsa  is  ) 

c  <  the  mixing  ratio  at  tms  level  , i  g/kg.  This  foraulation  is  an  ) 

c  (  empirical  fit  to  data  in  the  Smit.sonian  Met.  Tables,  p.328.  ) 

c  <  Revision  History:  ) 

c  ( . 1 


Date 


Programmer 


Remarks 


Sept  1987 
02  Oct  1991 
Nov  1992 


Stuart  Gathaien 
Charles  McGrath 
Linda  Hitney 


Function  coded 
Comments  added 
Converted  from  PASCAL  to 


FORTRAN 


C  (■•■*BU«MaBBB8sus«B«BaaaBB»BBtBB8aaaBaR»8tsaiHaaa«saatta«iBBStaURaaB} 


Tta  ■  Te*a/EXP(Q. 286" log( 1000. 0/PaLt(Zea))> 

Eta  «  VpCRsa,  Zaa) 

Fk  -  1.0/0.286 

X  -  EXP(Fk*log<Tea>) 

Tc  ■  732.02- 150. 41*(Log10(X)-L0G10(Esa)) 

Tc  ■  Tc+7.21*(LOG1O(X)-LOG10(Esa))*(LOGl0(X)-LOG10(Eaa))*273.15 
Pz  •  1000.0*EXP(*1 .0*Fk*log<Tasa/Tc)) 

Zcon  ■  ALtitude(Pz) 
end  I  Zcon 


FUNCTION  FNTabs(l) 


c  {■■*•»•■■■»■•■■«■■*■*»■■■■■■»»**■■«■•■■■■■«■««■»■»■■■■»«»««■»■■■«»*«*■■»»**■) 

c  C  Purpose:  converts  input  values  of  l  (10*T  in  integer  form)  into  T(K)  ) 
c  (  Revision  History:  > 

e  C . ) 

c  (  Date  |  Programmer  |  Remarks  > 

e  ( . ) 

c  (  Sept  1987  Stuart  Gathrnn  Function  coded  ) 

c  (  02  Oct  1991  Charles  McGrath  Consents  added  ) 

c  (  Nov  1992  Linda  Hitney  Converted  from  PASCAL  to  FORTRAN  ) 

C  . . ........I.....,.....,.,.,,:) 

c  begin 


FNTabs  •  273.15M/10.0  t  (  i  > 

rrd  l  FNTabs 


FUNCTION  FdptCTIO,  Op) 

C  (................................I.........................................) 

c  (  Purpose:  Calculate  the  dew  point  given  the  temperature  tIO  and  Cp  ) 

c  (  Revision  History:  ) 

e  ( . > 

c  (  Oste  |  Programmer  |  Remarks  ) 

e  < . ) 

c  C  Sept  1987  Stuart  Gathmen  Function  coded  ) 

c  (  02  Oct  1991  Charles  McGrsth  Consents  added  ) 

c  (  Nov  1992  Linda  Hitney  Converted  from  PASCAL  ts  FORTRAN  } 


c  (aaBBiatsat8iBaaftsiaRflBaiBiscssaB:eessEac8tacaaB8MEti88SE8tscitia:zi>isss) 
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Eprine  »  Op*1. 013/(0. 62197+Op«0. 001) 

Ttest  *  T10  ) Start  with  daw  point  at  air  temp  and  go  down, 

do  while  (VapprOtestl.GT.Eprime) 

Ttaat  ■  Ttest-0.1 
enddo 

Fdpt  ■  Ttest 
and  l  5dpt 

FUNCTION  xtoy(x,  y) 

C  (>»Mii«ttMsuuiai>Ma«tuaitmBtniitiuiaiaKsissast»iiii»ifisi6SBiBB) 

c  (  Purpose:  Calculate  th*  value  of  X  raiaad  to  the  yth  power  > 

c  (  Revision  Hfatory:  ) 


c 

c  ( 

Date 

Programmer 

Remarks 

* 

c  { 

Sept 

1987 

Stuart  Oathmen 

Function  coded 

3 

c  c 

02  Oct 

1991 

Charles  McGrath 

Cements  added 

3 

“ 

c  < 

Nov 

1992 

Linda  Hitney 

Converted  from  PASCAL  to  FORTRAN 

3 

C  (■iwmmawM—ttiitnwinimBimiiMHUMwimtuiMmitmwii) 


if  ((y  .E0.  0.0)  .and.  (x.NE.0.0)}  goto  1000 
if  (<x  .EQ.  0.0)  .and.  (y.NE.0.0))  goto  2000 
« t  *  y*log(x) 
if  (zzz  .GT.  25.0)  then 
Xtoy  ■  999999999999999999990.9 

write(*,“)  'rxmerical  errors  in  xtoy  routine' 
goto  9000 
end  if 

if  ((x.GT.0.0)  .and.  (y.NE.0.0))  xtoy  ■  exp(y*log(x)) 
if  (x  .GE.  0.0)  goto  9000 
c  At  this  point  we  worry  about  negative  x's 

if  ((frac(aba(y))  .GT.  0.000001)  .and.  (x.LT.0.0))  then 
write<*,*)  ‘error  non  integer  y  and  negative  x' 
xtoy  -  99999999999999999.90 
goto  9000 
else 

Z  ■  ebely/2.0) 
x  ■  -x 

value  ■  exp(y*log(x)3 
zz  ■  frac(z) 

if  («  .IT.  O.OOOW1)  then 
xtoy  ■  value 

else 

xtoy  «  -1.0*vaLue 
endif 
end  If 
goto  9000 
1000  continue 
xtoy  ■  1.0 
goto  9000 
2000  continue 

xtoy  *  0.0 
9000  continue 

end  I  xtoy 

FUNCTION  frac(x) 

frac«x-int(x) 

end 


real  FUNCTION  Mu  calc(T) 


Purpose:  Calculate  the  dynamic  viscosity  at  T(K).  Based  on 

Sutherland's  equation  in  list  p  39 A. 

Revision  History: 

Date 

Programmer 

Remarks 

Sept  1987 

Stuart  Gathmen 

Function  coded 

10  Oct  1991 

Charles  McGrath 

Nov  1992 

Linda  Hitney 

Converted  from  PASCAL  to  FORTRAN 
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real  MuO 

C  ■  393.16  I  DEG  K 

MuO  >  1 .83257E-05  I  kg/*/SEC 

TO  >  296.16  I  K 

Mu_CALC  •  NuO*{TO*C)*EXP(1 .5*Log(T/TO))/(TtC) 
end  I  Mu  cate 


FUNCTION  FNR(F) 

C  (•nmnnanutuitmiaimiitsci 

C  < 
e  { 


c  <• 
c 
c 
c 
c 
c 
c 


Purpose:  Specialize  function  used  in  Deposition  velocity  equation. 
Revision  History: 


■«> 

> 

) 


Date 


< 

( . 

(  Sept  1987 

<  10  Oct  1991 

<  Nov  1992 


Programner 


Remarks 


) 

. 5 

> 
> 

Converted  from  PASCAL  to  FORTRAN  > 


Stuart  Gathnan 
Charles  McGrath 
Linda  Hitney 


Function  coded 


BatuaintitMinHsatiHiuaHiiiMim 


FNR  •  (1 .0*1 . 1/JF*F*F))*1000.0 

end  I  FNR 

FUNCTION  Dlff_COef(A0) 

ISStSiat«SMUHaB»niSCStSXBIS&ll!IBBSBtS»B>»SXSMIBel*»IBCtcSS 

Purpose:  Specialize  fimction  used  to  eelculate  the  diffusion  coeffi 
based  on  a  curve  fit  to  a  graph  obtained  from  Toomey(1977) 
Revision  History: 


Date 


I 


Programmer 


Remarks 

Function  coded 


cient> 

p66.> 

> 

> 

»•*> 


Sept  1987 
10  Oct  1991 
Nov  1992 


Stuart  Gathawn 
Charles  McGrath 
Linda  Hitney 


Converted  from  PASCAL  to  FORTRAN 

msamsttsasMasMBBBsaoMsssi 


As* 100.0* AO  I  converts  fro*  meters  to  cm.) 

Bb»1  .5849E-16/(Aa*Aa)+1 .3E*11/Aa  I  Toossey  <1977}  fig  3.6  p66> 
D1ff_coef»Bb  *  0.0001  I  converts  from  cm' 2 /sec  to  sT2/sec.) 

end  I  (fuietion  Diff  coef) 


FUNCTION  FNH(A} 

FNH  «  MAXC0.0,  A) 
end 


FUNCTION  FNA(Amp) 

FNA  -  2000. 0*Altp*  Amp 
end 


FUNCTION  FNB(Uave) 

FNB  •  MAX(0.5,  5.866*(Uave-2.2)) 


FUNCTION  FNC(U) 

FNC  -  exp((0.06»U-2.8)*2. 3025850930)  I  pouerlO  faction 
END 


eharacter*2  FUNCTION  pad(Value) 

integer*2  Value 

character^  S 

writeCS, l(i2.2)l>  Value 

Pad  >  $ 

end  I  pad 
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FUNCTION  Td(  0,  P) 

C  {■•■■IRIIIlllfRBIIIIIIINBICIItCBCCltSCiatlllMMIllGKCCICIItXItlCItCSEIClB^ 

c  (  Purpose:  Calculate  dew  point  temperature  from  mixing  ration  and  prat.  > 

c  (  see  Bolton  MUR  (1980)  vIOS.  ) 

c  {  Celled  fry:  Parc«l2  ) 

c  {  Celia  Out:  (none)  > 

c  <  Revision  History:  ) 

e  ( . ) 


Date 


< 

< . 

{  10  Oct  1991 
(  5  Oct  1992 

(•« 


Progr 


irks 


> 

. 1 

Charles  McGrsth  I  > 

Stuart  Gathmen  |  Clean  up  the  set  of  routines  } 

naiitiuvnciHiHKUmnBiiiiimiiBnimtni) 


Ow  ■  Q/IOOO.O 
E  »  P*0w/(0.622+0w> 

Td  ■  (243.5*log(E)-440.8)/(19.4B-Log(E)) 

end  l  Td 


FUNCTION  rMix,ratio(  Teent,  Rh,  P) 

C  (■mitimiaisaimesKiiuBitiBiittBEtcsc:cti:isett3am»»(iistimiiiic) 


c  (  Purpose:  Calculate  Mixing  ratio  from  T,  Rh  and  press.  } 

c  (  This  is  an  approx i tea t ion  to  the  goff-geteh  formula  which  is  ) 

c  <  good  to  1/2  %  error  for  -  to  over  25  leg.  ) 

c  {  (  p  is  in  Millibars,  and  rMix_ratio  will  be  in  g/kg)  ) 

c  (  Called  by:  Parcel2  > 

c  (  Calls  out:  (none)  ) 

c  {  Revision  History:  ) 

c  ( . ) 

c  (  Date  |  Programmer  |  Remarks  ) 

c  ( . > 

c  (  10  Oct  1991  I  Charles  McGrath  I  ) 

c  (  S  Oct  1992  I  Stuart  Gathman  |cieaned  up  routines  ) 

C  (■mnuBnanBBBni»uumiiBiMimturaun»»»uu>Ha»n>nnni) 


Ex  •  6.112*EXP(17.67*Tcent/(Tcent*243.5)) 
asst  •  622.0*Ex/(P-Ex)  l  List,  pS02 
rMix_Rstio  «  Qsat*Rh/100.0 
end  ” 
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APPENDIX  G  SUBROUTINES  USED  BY  NOVAMSR 


tUUOUTINE  ReedSetupF UelWavetengthString,  SurfeeeFilePath, 
$  ProfUeFilePath,  Datatype,  ReedDk) 


Purpose:  Reeds  variables  fro*  sett?  file  (HOVAM.INI ) 
Cal  lad  by:  NOV  AM  driver 
Calls  out:  non* 

Preconditions:  setup  fllo  should  oxltt 


Oat* 


Progra 


Ravi  si or  History 


10  Rob  1992 
Nov  1992 
21  Nay  1993 


Chariot  NcCrath 
Linda  Hitnoy 
Stu  Cathaan 


craatad  procadura 

convortad  froa  PASCAL  to  FORTRAN 

coordinate  with  NOVANSW 


logical  ReadOk 
logical  FitaExists 
integer  TextFile 
character* 10  UavoLengthString 
chareeter*1  DataTypo 

charecter*12  SurfaceFilaPath,  Prof  HeFilePath 
chare>.;er*12  Setupfilo 

Setqjfile  •  'NOVAN. INI 1 
TaxtFileaSO 

i  nqui ra( f i le"SettpF ilo, axi at«F I leExtsts) 

If  (Filoexiats)  then 

Qpendati  taText Ft  la,  f  i  laaSatig>F  I  le^atatuoa* old1 ) 
ReodlTaxtFIle, »(a)»)  Wavelengthstring 
ReadlTextFile, '<o)')  SurfaceFilaPath 
ReadlTextFile, '(a)')  Prof ileFi laPath 
ReedlTaxtFilo, '(12x,s1)')  DataTypo 
cloea(TextFila) 

ReadOK  -  .true. 

•lot 

ReadOK  ■  .false. 

and  if 

and  l  ReadSetipFIle 


SUBROUTINE  convert 

c  <  Purpose:  Converts  type  aptar.dat  files  I  not  patrh.dat  type  of  file  > 

c  (  This  is  a  pros ran  to  convert  the  altitude,  Potential  Tasporature  and  > 

c  <  aiixing  ratio  data  into  the  pressure,  air  teaperature  and  rel  huaidity  } 

c  <  profile  data.  This  it  the  batch  file  version  which  doesn't  need  to  ask  ) 

c  (  questions  of  the  operator.  ) 

e  ( . ) 

e  (  Called  by:  NOVAMSR  > 

c  {  Calls  out:  none  > 

c  <  Preconditions:  setup  file  should  exist  ) 

c  ( . > 

c  <  Date  |  Prograaner  j  Revision  History  ) 

c  < . ) 

c  <  Feb  1992  |  Stu  Cathaan  |  created  subroutine  > 


integer  input, output 

real  Iogpres,a,b,c,a0,b0,c0,satar,satvp 

real  pres(1000),airt(1000>,rh(1000> 

c  read  in  the  type  1  data  file 
inputolO 

cpenl uni  t*input,file*' aptar.dat' .status* 'old') 
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output  >11 

open(unit»output ,f  i  le«* patrh.dat 1  .status*' unknown* ) 

read(input,*)  a,b,c 

eO*a 

bO-b 

eO*e 

J-0 

do  Mhile  (.not.  eof( input)) 
read(input,*,end«999)  a,b,e 
if  (t  .CT.  aO)  then 
j«j*1 

if  (a  .IT.  500.0)  then 
pres(j)*1013.0-55.0‘a/500.0 

else 

pres< j  )*1021 .38*exp( -0.0001273 9*a) 
endif 

l ogpr  es*4S42 . 9448* t ofl ( pres ( j ) ) 

airt(J)«<b*273.15)/erp<0.288*log<1000.0/pres( j>))-273.15 
satvp-vappr(airt(J)) 
satmr*620.0*satvp/<pres(j)-  satvp) 
rh(  j  )*100.0*c/s*t*tr 

wr i te( output, '(i8,4f8.0)')  J , logpres, 1Q.0*airt( j), rh( j ), 
$  T0.0*pr*«( j) 

aO*a 

bO*b 

c0«c 

else 

read<  input,  *,end»999)  s0,b0,c0 
endif 
enddo 

999  continue 

cloee  (input) 
close(output) 
end  (convert 


SUBROUTINE  filter 

C  {nsMnaiiBiiACNNtaMuuBaMranaanssraBauaaaBasMMBSBBaiBtBBBcnssBc} 

c  {  Purpose:  To  filter  ROAB  data  to  determine  significant  levels  > 

c(  Called  by:  N0VAMSR  ) 

c  <  Calls  out:  Histogram,  Saiooft  > 

c  (  Preconditions;  > 

c  ( . > 

c  {  Date  |  Programmer  |  Revision  History  > 

c  < . ) 

c  (  10  Feb  1992  I  Rich  Peulus  |  created  BASIC  program  > 


c  (  Bov  1992  Linda  Hitney  converted  from  BASIC  to  FORTRAN  > 

c  (  21  May  1993  |  Stu  Gathman  |  coordinate  with  MOVAMSW  > 

C  . . . . 

CHARACTERS  F I  lenmse.f  i  le 

INTEGERS  NHsx 

INTEGER*^  Time 

INTEGERS  s 

REAL*4  B I  ns  lie 

REAL *4  DT 

LOGICAL  Flips 

DINENSION  Tewp(21 ),  XC2000),  Y(2000),  d(2000) 

Ui  MENS  I  ON  T  i  me  (2000) 

DIMENSION  perray<2000),  tsrray(2000),  rhsrry{2000) 

DIMENSION  Ptmth(2000) ,  Tsmth(2000),  RHsmth(2000) 

DIMENSION  dtdp(2000),  drhdp(2000),  d2tdp2(2000) 

DIMENSION  P tmpC 500),  Ttep(500),  RHtnp(500) 

DIMENSION  Psig(IOO),  Tsig(100),  RHsig(IOO) 
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c  This  section  reads  and  RS-80  roab  data  at  output  from 
c  the  PP*11. 

N  «  1  (default  median  filter  order  of  1 

FtLE  »  "patrh.dat'- 
N levels  =  ?00 

OPEN  (tmUtalZ.fileaFILE.stetusa'old' ) 

HTZERO  ■  0.0 

I  ■  0 

00  MULE  (.MOT.  E0FC12)) 

READOZ,*)  a,  b,  c,  dinput,  E 
p  ■  E  /  10.0 
t  ■  c  /  10.0 
rh  ■  dinput 

IF  (I  .EQ.  Nlevela)  GOTO  7000 

1  -  1  ♦  1 

Timed )  «  a 

perray(l)  «  p 

tarray(l)  »  t 

rherry(I)  ■  rh 

EMOOO 

7000  CONTINUE 

Nmax  -  I 


iopt  ■  1 

IF  (iopt  .EQ.  1)  THEN 
DO  I  ■  1  ,  Nmax 
X(I)  «  parray(l) 

EMOOO 

ELSEIF  (iopt  .Ed.  2)  THEN 
DO  I  «  1  ,  Nmax 
X(I)  »  tarray(l) 

EN000 

ELSE 

DO  1  •  1  ,  Nmax 
X(I)  -  rharry(I) 

EMOOO 
END  IF 

c  for  Nth  order  filter,  copy  N  end  points  from  input  to  output 

DO  I  ■  1  ,  N 
Yd)  -  X(I) 

Y(Nmax  ♦  1  -  1)  ■  X(Nmax  ♦1-1) 

ENODO 

L  *  2  *  M  ♦  1  !  window  length 

c  median  filter  of  order  N  without  replacement 

DO  I  ■  N  *  1  ,  Nmax  -  N 
DO  J  «  1  ,  L 

Teop(J)  »  X(I  ♦  J  -  N  *  1) 

EMOOO 

c  sort  Temp  into  ascending  order 
Flips  »  .true. 

DO  WHILE  (Flips) 

Flips  *  .false. 

00  J  »  2  ,  L 

IF  (TeeplJ  -  1)  .GT.  TenplJ))  THEM 
Hips  *  .true. 

Seve«Temp(J-1 ) 

Temp(J-1)«Temp(J) 

Tempi J)*Save 
END  IF 
ENDDC 
ENDOO 

Y(I)  *  TemplN  ♦  1)  I  median  value 

EMOOO 
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c  cwpute  difference  histogram  and  determine  threshold,  initial  bin 
c  sire  is  .2  for  P  t  T  and  2  for  rh 

Binslzt  »  .2 

if  ( i opt  .EQ.  3)  Binsize  ■  2 
DO  I  •  1  .  Mux 

dd>  *  X( ! )  •  Y<|> 

ENOOO 

CAU  hiatogramCd,  Ban*,  Binsize,  OT) 
c  eenerate  final  output  as  x(i) 

DO  I  »  1  ,  MMX 

If  (ABS(d(l>)  .6T.  DT)  X(I)  «  Yd) 

ENOOO 

IF  ( f opt  .EQ.  1)  THEN 
pts  *  3 
ELSE 
pts  *  6 
EHDIF 

CAU  snooFHX,  Nmax,  pts) 

IF  dopt  .EQ.  1)  THEN 
DO  1  ■  1  ,  Umax 
Psathd )  ■  X(t) 

ENDDO 

ELSE  IF  C i opt  .EO.  2)  THEN 
DO  1  ■  1  ,  Nanx 
Tsnthd )  «  X(i) 

ENOOO 

ELSE 

DO  1  ■  1  ,  Mux 
RHsaithd)  *  X(|) 

ENDDO 
FMO  If 

iopt  «  2 

IF  (iopt  .EQ.  1)  THEN 
DO  I  *  1  ,  Nnax 
XCI )  *  parray(I) 

ENOOO 

ELSE  I F  (iopt  .EQ.  2)  THEN 
DO  I  *  1  ,  Nmax 
Xd)  =  t  array  (I ) 

ENOOO 

ELSE 

DO  I  *  1  ,  Mux 
Xd)  «  rharry(J) 

ENDDO 
END  IF 

c  for  Nth  order  filter,  copy  M  end  points  from  input  to  output 

DO  1  *  1  ,  N 
Y(l)  «  X(I) 

Y(Mux  ♦  1  -  I)  r  x(Nmax  *1-1) 

ENOro 

l  *  2  *  A  ♦  1  !  window  length 

c  median  filter  of  order  N  without  replacement 

DO  !  *  X  ♦  1  ,  Nmax  -  N 
DO  «  *  I  ,  l 

Tewp(j)  «  m;  *  j  ■  X  •  1) 

ENOOO 
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■  gcri  temp  Into  ascending  order 

flips  ■  .true. 

DO  WHILE  (flips) 
flips  •  .false. 

DO  J  •  2  ,  L 

IF  (tempi  J  -  1)  .GT.  Te«p(J))  THEN 
Flips  «  .true. 

Save»Teep(J*1) 

Teep(J*1)*Te«p(J) 

Ta«p())«S*ve 
END  IF 
ENODO 
ENDDO 

YC I >  -  Temp(N  ♦  1)  I  Niedisr'  value 

ENDOO 

c  compute  difference  histogram  end  determine  threshold,  initial  bin 
c  size  is  .2  for  P  l  T  and  2  for  RH 

Binsize  ■  .2 

IF  ( f opt  .EG.  J)  Binsize  =  2 
00  I  *  1  ,  Nmax 
del)  •  X<!)  •  Y(l) 

ENDOO 

CALL  histogramed,  Nmax,  Binsize,  DT) 
c  generate  final  output  as  x(i) 

DO  I  «  1  ,  Nmax 

If  (A8S<d(I»  .GT.  DT)  X(l)  ■  Y(l) 

ENDOO 

IF  ( i opt  .EG.  1)  THEN 
pts  ■  3 
ELSE 
pta  «  6 
END  IF 

CALL  SHOOFUX,  Nmax.  pts) 

IF  (iopt  .EG.  1)  THEN 
DO  )  ■  1  ,  Nmax 
Psmth(l)  >  X(I) 

ENDDO 

ELSE  IF  <iopt  .EG.  2)  THEN 
DO  I  *  1  ,  Nmax 
Tsmthd)  ■  Xd> 

ENODO 

ELSE 

DO  1  ■  T  ,  Nmax 
RHsmthd  >  *  X(I) 

ENDDO 
END  IF 

iopt  •  3 

IF  (iopt  .EG.  1)  THEN 
00  1*1,  Nmax 
Xd)  *  perray(l) 

ENDDO 

ELSE  1 E  (iopt  .EG.  2)  THEN 
DO  1  1  1  ,  Nmax 
Xd)  =  tarray(l) 

ENDDO 

ELSE 

00  1  *  1  ,  Nmax 
Xd)  =  rharry(I) 

ENDDO 
END  IF 
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c  for  Nth  order  fitter,  copy  N  end  point#  from  input  to  output 
DO  I  •  1  ,  N 

vtn  *  *u) 

Y(Naax  *  1  •  I )  *  XtNmax  ♦  1  ■  I ) 

EUOOO 

L  *  2  *  N  ♦  1  i  window  length 

c  median  filter  of  order  N  without  replacement 

DO  l  •  N  ♦  1  ,  Nmax  ’  X 
00  J  •  1  ,  L 

Temp(J)  ■  XU  ♦  J  '  N  -  1) 

ENDOO 

c  eort  Teap  Into  e#cendinfl  order 

flip#  •  .true. 

DO  WHILE  (Flips) 

Flip#  *  .false. 

DO  J  *  2  ,  L 

IF  (Tempt J  '  O  *CT-  Tempt J>)  THEM 
Flips  *  .true. 

SaveaTerap(J-l) 

T«ap(J*1 )wTenp( J) 

Teep(J)«Seve 
END  IF 
ENDOO 
ENDOO 

Y(I)  *  TeaptN  ♦  1)  t  stedien  value 

ENDDO 

c  coelute  difference  histogram  .md  detersiine  threshold,  initial  bin 
c  alia  is  .2  for  P  t  T  d  2  for  NH 

Binaize  *  .2 

IF  (topt  .EO.  3)  Binsize  *  2 
00  I  •  1  ,  Nmax 

dU)  «  xu)  -  ruj 

ENODO 

CALL  hiatograratd,  Neax,  Binsize,  DT) 
c  osnerete  final  output  at  x<1) 

DO  1  «  1  ,  Nmax 

IF  (ABS(dtl))  .CT.  DT)  XU)  e  Y(l) 

ENDDO 

IF  (iopt  .EO.  1)  THEN 
pts  *  3 
ELSE 
pts  ■  6 
END  IF 

CALL  SHOOFTtX,  Nmax,  pts) 

IF  (iopt  .EQ.  1)  THEN 
do  I  •  1  ,  Nmax 
Psmth(l)  *  X(l) 

ENDDO 

ELSE  IF  (iopt  .EO.  2)  THEN 
DO  I  «  1  ,  Nmax 
TsmthU)  *  X(l) 

ENDDO 

ELSE 

DO  1  *  1  ,  Nmax 
RHsmth(l)  *  XU) 

ENDDO 
END  IF 
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Analysis: 

c  This  section  analyzes  the  smoothed  P,T,U  profiles  to  determine  the 
c  significant  levels.  Central  difference  finite  derivatives  are 
c  calculated  to  locate  relative  max/min  and  saddle  points. 

dtdpll)  »  0 
dt dpi  Umax)  *  0 
drhdp(l)  •  0 
drhdp(Nanx)  ■  0 
d2tdp2(1)  •  0 
d2tdp2(Nmax)  *  0 
DO  I  ■  2  .  Umax  •  1 

<*>  -  LOGIPsmthll  -  1)  /  Psmthll  +  1)) 
dtdpd )  ■  (Tsmthll  ♦  1)  -  Tsmthll  *  1))  /  dp 
drhdp(I)  >  (RHsmthll  ♦  1)  -  RHa^thl I  *  1)}  /  dp 
d2tdp2(I)  «  (Tsmthll  -  1)  •  2  *  Tsmth(l)  ♦ 

*  Tsmthll  ♦  1))  /  ((.5  *  dp)  **  2 
EUDDO 

Ptmp(l)  ■  Psmthll ) 

Ttnp(l)  «  Tsmthll ) 

RHtnplI )  «  RHsmthll ) 

c  look  for  change  in  sign  of  derivatives  to  pick  level 
J  ■  1 

DO  I  ■  3  ,  Nmax  -  1 

If  ISON  (dtdpd ))  .ME.  SON (dtdpll  -  1))  .OR. 

*  SGMldrhdp(I))  .ME.  SGMldrhdplI  -  1)))  THEN 
J  ■  J  ♦  1 

Ptsp(J)  *  Psmthll ) 

Ttmp(J)  •  Tsmthll) 

RHtqp(J)  ■  RHsmthll) 

ELSE  If  (SGN(d2tdp2(l ))  .ME.  SGMld2tdp2ll  -  1))>  THEM 
J  ■  J  ♦  1 

Ptmp(J)  •  Psmth(I) 

TtmptJ)  -  Tsmthll) 

RHtmplJ)  -  RHsmthll) 

EMD  If 
ENDDO 

Jmax  ■  J  ♦  1 

PtmplJmax)  =  PsmthlMmax) 

Ttap(Jmsx)  s  TsmthlMmex) 

RHtsp(Jmax)  •  RHsmthlNmax) 


c  select  significant  levels  iaw  FMH  #3 

6000  CONTINUE 

Ttol  -  .2 
RHtol  «  2 

Psigll)  ■  Ptep(l) 

Tsigll)  *  Ttfflp(l) 

RHsig(l)  ■  RHtmp(l) 

Umax  ■  1 

lasts ig  ■  1 
DO  J  ■  3  ,  Jmax 
DO  L  «  lastsig  ♦  1  ,  J 

Dlog  •  lOGlPsig(Rmax)  /  Ptmp(j))  /  lOCIPsigIKmax)  /  PtrrplL)) 
t  ■  TsigtKmax)  -  ITsigtkmax)  •  Ttnp(J))  /  Dlog 
rh  *  RHsiglkmax)  -  IRHsig(Kmax)  -  RHtnp(J))  /  Dlog 
If  (ABS(TtmplL)  -  t)  .0T.  Ttol  .OR. 

S  ABS(RHtmplL)  -  rh)  .CT.  RHtol)  THEM 

Umax  =  Umax  ♦  1 
Pslg(Kmax)  =  Ptmp(l) 

Tsig(Kmax)  *  Ttmp(L) 

RHsiglkmax)  •=  RHtirp(i) 
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Lasts fg  ■  L 
GOTO  SOOO 
END  IF 
EHOOO 

5000  CONTI MJE 
EHOOO 

KMX  b  (MX  *  1 
Fslg(KMx)  ■  Ptap(JMX) 

Tslg(Kmex)  >  TUp(Jmex) 

RHsig(KMx)  b  RKtepOMx) 

Filename  •  “sigfile* 

OPEN  (ir(t»13, fi  laBFUentMe^tstusB'iaxknown1 ) 
UR1T£(13,*>  KMX 
DO  I  ■  1  ,  K—x 

WRITE<13,2000)  Pslg(l),  TsigCI),  RHsig(l) 

2000  FORMAT(f7.1,f6.1,f8.1 ) 

EHOOO 

CLOSE  (12)  tHpetrh.datH 
CLOSE  (13)  1"aigfUeM 
RETURN 

END  I  filter 


c  (■ 


SUBROUTINE  hiatogrM  (d.  Max,  Binsize,  0T) 


Purpose : 
Called  by: 
Calls  out: 
C 


filter 
zerobin 

to:  d  la  the  dataarray.  Hu  Is  the  ixmber  of  points, 

■Inalze  Is  the  Initial  size,  and  0T  Is  the  difference  threshold, 
construct  a  25  bin  histogram  uith  bin  size  of  IBIntizel  from  the 
difference  data  in  array  101.  The  histogram  is  checked  for 
empty  bins;  IF  (none  exist,  the  bin  size  is  doubled  until  at 
least  one  bln  Is  empty.  The  difference  threshold,  DT,  is 
THEN  calculated  and  returned. 


c  (- 
{ 

{- 


Date 


Progr 


Revision  History 


{  10  Feb  1992 
{  Nov  1992 
(  21  May  1993 


Rich  Paulus 
Linda  Hitney 
Stu  Osthemn 


created  BASIC  program 
converted  from  BASIC  to  FORTRAN 
coordinate  uith  NOVAMSW 


C  (■■viUiiUBMtiiiMiiifBBBBiBiiiRgBiikiiBMaaaiMaiitttdBiasaBnaiiainBtgai) 


REALH  0(2000) 

INTEGERS  Hex 
REALH  B insize 
REACH  OT 
INTEGER‘2  Counts 
DIMENSION  Count s{25) 

INTEGERS  Index 
Index  b  o 

00  WHILE  (Index  .EQ.  0) 

DO  I  b  1  ,  25 

Cowts(I)  *  0 
ENDDO 

DO  I  >  1  ,  Nmax 

IF  (ABS(d(l ))  .GT.  B insist  •  11  ♦  Binsize  /  2)  THEN 
IF  (d(I)  .LT.  0)  THEN 
J  *  1 
ELSE 
J  -  25 
ENO  IF 
ELSE 

IF  (d(I)  .LT.  0)  THEN 

J  *  INI (d( I )  /  Binsize  •  .5)  ♦  13 
ELSE 

J  «  INT(dU)  /  Binsize  ♦  .5)  ♦  13 
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END  It 
END  IE 

Counts^)  «  Count*! J)  ♦  1 
EHDDO 

CALL  zerobin(Counts,  index) 

IF  (Index  .HE.  0)  THEN 
OT  *  Index  *  Binsize  *  Binsize  /  2 
ELSE 

Binsize  *  Binsize  *  2 
END  IF 
EHOOO 

END  thistogram 


SUBROUTINE  SNOOFT  (Y,  N,  pts) 

C  {*a*asas«tBiissBBceassai£?  iBSXEtiaectesuasitsiiaaiBMiBsissaflBBBBXtSBCsiiflt) 


c  (  Purpose:  To  smooth  en  srrey  of  date  > 

c  <  Called  by:  filter  > 

c  <  Calls  out:  REAlFT  ) 

e  <  Comments:  Smooths  en  array  Y  of  length  N,  with  a  window  whose  full  width) 

c  (  is  of  order  PTS  neighboring  points,  a  user  supplied  value.  Y  is) 

c  {  modified.  From  Numerical  Recipes  by  Press  et  si,  Ch  13.9  ) 

c  { . ) 

c  (  Date  |  Programmer  |  Revision  History  ) 

c  ( . ) 

e  (  10  Feb  1992  Rich  Paul us  created  BASIC  program  ) 

c  {  Nov  1992  Linda  Hitney  converted  from  BASIC  to  FORTRAN  ) 

c  (  21  May  1993  Stu  Gathman  coordinate  with  NOVAMSV  ) 

C  (■■aaMSMiimBaiiaaiBviiiiiiaiBisBiBMifRiBssiiniiratiKseilMBlivixiiBaac) 


REAL*4  Y(2000) 

INTEGERS  N 
1NTECER*2  Mo2 
INTEGERa2  Isign 

Maax  ■  1024  laax  size  of  padded  array 

M  -  2 

Naifn  *  N  *  2  *  pts  I  min  size  including  buffer  against  wrap  around 

00  while  <M  .IT.  Main)  I  find  next  larger  power  of  2 

N  «  2  *  M 
ENDOO 

IF  <(H  .CT.  Mmax))  THEN 
STOP  “Hsu  too  small" 

ENO  IF 

Constant  *  (pts  /  H)  **  2  I  useful  constants  below 
VI  «  Y(1) 

YN  ■  Y(N) 

RM1  a  1.0  /  float(N  *  1) 

DO  J  ■  1  ,  N  I  remove  linear  trend  l  transfer  data 

Y(J)  »  Y(J)  •  RNl  *  (Y1  •  (N  -  J)  ♦  YN  *  (J  *  1>> 

ENODO 

IF  (C(N  ♦  1)  .LE.  N))  THEN  I  zero  pad 
DO  J  -  N  +  1  ,  M 
Y( J)  •  0 
ENODO 
END  IF 
Mo2  ■  M  /  2 
lsign«1 

CALL  REALFTO,  Mo2,  Isign)  I  Fourier  transform 

Y(1)  •  Y(1 )  /  Mo2 

FAC  «  1  I  window  function 

DO  J  «  1  ,  Mo2  -  1  I  multiply  the  data  by  the  window  function 

K  »  2  •  J  ♦  1 
IF  ((FAC  .NE.  0))  THEN 

FAC  *  (1  -  Constant  •  J  •*  2)  /  Mo2 
IF  (FAC  .LT.  0.0)  FAC  «  0.0 
Y(K)  »  FAC  •  Y(K) 

Y(K  ♦  1)  ■  FAC  *  Y(K  ♦  1) 

ELSE  I  don't  do  unnecessary  multiplies  after 

Y(K)  ■  0  I  window  function  it  zero 

Y(K  ♦  1)  «  0 
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I  last  point 


ENO  IF 
ENDDO 

FAC  ■  (1  •  .25  *  pts  ••  2)  /  *o2 
If  (FAC  .IT.  O.O)  FAC  -  0.0 
Y(2>  «  FAC  *  Y<2> 
lei*n»-1 

CALL  AEALfT(Y,  Ho2,  tslgn) 

00  J  •  1  .  N 

Y(J)  ■  Ml  *  <Y1  •  <N  •  J) 
ENDDO 

END  I  Sanoft 


I  invarae  Fouriar  transform 
I  restore  linear  trend 
VN  •  (J  •  1 3>  ♦  YtJ> 


(» 

< 

<. 

c 


SUBROUTINE  terobln  (Counts,  Index) 

Purpose:  To  find  empty  bint  in  a  nlstogrw 
Called  by:  histogram 

j*— find  first  eeipty  bin  either  aide  of  bin  15; 

,f  (non?  found,)  THEN  indicate  by  aetting  index-0 


) 
) 
> 
> 
) 

. ) 


'  (‘"o'.'te . |"”pr'0?r«n*r  |  Revision  History . > 


c  . . * 

c  C  10  Fab  1992  1  Rich  Peulus 
c  C  Nov  1992  Unde  hltney 
e  <  21  May  1993  j  Stu  Cathman 


created  BASIC  program 
converted  from  BASIC  to  FORTRAN 
coordinate  eith  N0VAMSW 


> 

> 

> 

«> 


c  (>•>««•«■ 


INTEGERS  Counts 
DIMENSION  Counts(25) 
INTEGERS  Index 
Index  •  0 
Indexl  *  0 
lndex2  »  0 
DO  I  »  1  ,  12 

IF  (Counted) 
IF  (Counts(2b 

ENDOO 


.E0.  0)  Indexl  «  ABSU  •  13) 

-  1)  .E0.  0)  lndex2  ■  AB$(l  ■  15) 


If  (indexl  -NE.  0  .AND.  Index2  .NE.  0)  THEN 
If  (Indexl  .U.  Index2)  THEN 
Index  ■  Indexl 
ELSE 

Index  ■  lndex2 


ENO  IF 

ELSE  IF  (Indexl  .Nfc.  0  .OR.  index?  .NE.  0)  THEN 
IF  (indexl  .GT.  Index2)  THEN 
Index  •  Indexl 


ELSE 

Index  «  lndex2 
END  IF 


ELSE 

Indtx  ■  0 
BHO  If 


ENO  I  xt robin 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c  < 


. . . 

(  Purpose:  To  calculate  a  Fourier  Transform 
Called  by:  Seooft 

"-"I".  «M.  0.1.  b, ‘STS 

co*lSA  Fouriar  Transfers:.  Tha  real-valued  first  end  i»»t 

“  zrz?  5'?«h,r5 


> 

) 

) 

> 

) 

> 

) 

) 

> 

) 

> 
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e  (  by  1/N.) 


c  (  Date  |  Programmer  |  Revision  History  > 


c  (  10  fab  1992  Rich  Paul us  created  BASIC  program  > 
c  {  Nov  1992  Linda  Hitney  converted  from  BASIC  to  FORTRAN  > 
c  {  21  May  1993  Stu  Gathai an  coordinate  with  NOVAMSW  > 


C  {•■■UtBUBIBBlIBBMBBltUIBBBIICSSBSIiaCMIilaUeillCIBtttlSEItflBSBBBtXSS) 

REAL *8  UPR, UPI, UR, UI, Theta,  UTEMP 
REAL*4  Y (2000) 

1NTE0ER*2  N 
INTEGERS  I  sign 
INTEGER* 2  Isgn 

Theta  ■  3.1415926S358979300  /  DBLE(N) 

Cl  •  .5 

IF  Ulatfln  .EO.  1))  THEN 
C2  ■  -.5 

lego  ■  1 

CALL  FOURKY,  N,  legn)  I  the  forward  transform  is  here 
ELSE  I  otherwise  set  for  an  inverse  transform 

C2  -  .5 

Theta  •  *Theta 
END  IF 

UPR  •  -2.000  *  S I N(  .500  *  Theta)  **  2 
WP1  *  SIN(Theta) 

WR  ■  1.000  *  WPR 
WI  •  UPI 

N2P3  a  2  *  N  ♦  3 

DO  I  a  2  ,  N  /  2  ♦  1  I  case  1>1  done  separately  below 

11  -  2  *  1  -  1 

12  -  II  ♦  1 

13  a  N2P3  *  12 

14  a  13  ♦  1 

URS  a  REALCUR) 

VIS  a  REAL(Ul) 

H1R  ■  Cl  *  (Y(I1)  *  Y ( 13))  I  The  2  aeparate  transforms  are  separated 
HI  I  a  ci  •  (Y(I2)  •  YC 14))  I  out  OF  z 
N2R  a  -C2  *  ( YC  12)  ♦  Y ( 1 4 ) ) 

H2I  ■  C2  *  CYCI1)  *  YC 13) ) 

YCI1)  •  H1R  ♦  WRS  *  H2R  -  WIS  *  H2l  I  Here  they  are  recombined  to  form 

Y(I2)  «  Hi  I  ♦  HRS  *  H2I  ♦  UIS  *  H2R  I  the  true  transforms  of  the 

Y(I3)  •  H1R  •  URS  •  H2R  *  UIS  *  H2i  !  original  real  data 

Y( 14)  a  -Ml  I  ♦  URS  *  H2I  *  UIS  *  H2R 
utemp  ■  ur  i  The  recurrence 

UR  a  WR  *  UPR  -  UI  *  UPI  ♦  UR 

UI  a  WI  *  UPR  ♦  UTEMP  *  UPI  ♦  WI 

EN00O 

IF  (deign  ,E0.  D)  THEN 
H1R  «  Y(1 ) 

Y(1 )  ■  H1R  ♦  Y(2) 

Y(2)  a  MIR  •  Y C 2 )  ISqueeze  the  first  and  last  data  together 

ELSE  ito  get  them  all  within  the  original 

H1R  «  Y(1)  larray 

Y(1)  a  Cl  *  CH1R  ♦  Y(2)) 

Y(2)  a  Cl  *  (H1R  •  Y(2)) 
lsgn  «  *1 

CALL  FOURKY,  N,  lsgn)  IThis  is  the  inverse  transform  for  the 

END  IF  lease  Isign*1 

END  I  real  ft 
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SUBROUTINE  FOUR1  U,  NN,  Isi^n) 

■ittiiittiiamiimiB<ca«::Ezs(«iieeiiiiitm:eities:tiis:nscBissEZ3:st:) 


Purpose  ) 

Called  by:  REALFT  > 

CtHi  out:  FOUR1  > 

Cosnsnts:  Replaces  Y  by  it*  discrete  Fourier  Transform,  IF  dsign*1;  or) 

replaces  Y  by  NN  tine*  its  inverse  discrete  Fourier  transforsi  if 
lsign*-1.  Y  is  a  complex  array  of  length  NN  or,  equivalently,  a 
real  array  of  ler^th  2*NN.  NN  MUST  be  an  integer  power  of  2. 


Oate 


Progr* 


|  Revision  History 


10  Feb  1992 
Nov  1992 
21  May  1993 


Rich  Paulo 
Linda  Hitney 
Stu  Gathnan 


created  BASIC  program 
converted  from  BASIC  to  FORTRAN 
coordinate  with  NOVAMSU 


iw— nwmwwiwmmMiiw— iHMWW  »— 


REAL'S  WPR, WPI ,WR,WI, Theta,  WTEMP 
REAL**  Y12000) 

1NTECER*2  NN 
INTECER*2  Isign 
N  *  2  *  NN 
4  •  1 

00  I  •  1  ,  N  ,  2  I  This  is  the  bit  reversal  section 

IF  «4  .GT.  I ))  THEN 
Teapft  •  r< J ) 

Tempi  »  Y(J  *  1) 

Y(J)  •  Y( I ) 

Y(J  ♦  1)  ■  Yd  ♦  1) 

Yd)  ■  TempR 
Yd  ♦  1)  *  Tempt 
ENO  IF 
M  •  N  /  2 

DO  WHILE  «M  .GE.  2)  .AND.  (J  .GT.  M)) 

4  ■  J  -  M 
H  ■  H  /  2 
ENDDO 
4  ■  4  ♦  M 
ENOOO 

Maax  •  2  I  Here  begins  the  Oenlelson-Lanczos  section 

DO  WHILE  (N  .GT.  Maax)  I  outer  loop  executed  LOG(NN)  (base  2)  tine* 
Istep  -  2  *  Umax 


c  Init  for  trig  recurrence 

Theta  «  6.2831853071795900  /DBLEOsign  •  Mnax) 

WPR  a  -2.000  *  SIN( .500  •  Theta)  *•  2 
WPI  a  SIN(ThetS) 

WR  a  1.000 
WI  ■  0.000 

00  H  a  1  ,  Mnax  ,  2  IHere  are  2  nested  inner  loops 

DO  I  a  M  ,  N  ,  Istep 

4  ■  I  ♦  Mnax  I  This  is  the  Danielson-Lanezos  formula 

TenpR  ■  REAL(WR)  *  Y<4)  •  REAL(WI)  *  Y<4  ♦  1) 

Tempi  a  REAL(WR)  •  Y<4  ♦  1)  ♦  REAL(WI)  *  Y(4> 

YC4)  •  Yd)  -  TempR 
Y(4  ♦  1)  ■  Yd  ♦  1)  •  Teepl 
Yd)  ■  Yd)  ♦  TempR 
Yd  ♦  1)  ■  Yd  ♦  1)  ♦  Tempi 
END00 

WTEMP  «  WR  I  trignometric  recurrence 
WR  ■  WR  •  WPR  -  WI  •  WPI  ♦  WR 
WI  •  WI  *  WPR  ♦  WTENP  *  WPI  ♦  WI 
ENOOO 

Mnax  ■  Istep 
EH0D0 

ENO  I  fourl 
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SUBROUTINE  NOVAKUC  RSOtta,  2tlt,  ko, 

£  {iiisiimiBiiasBrniSBisiittsttssetectiBai 


c  C 

C  < 

c  < 
c  < 

C  {- 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


Purpose: 

Celled  by:  MSR_WEAJC.FOR 
Cells: 


f  Celt,  SOOste) 

iiBsasBBSSESSsasasstasissasBSSBS) 

> 
> 
) 
> 


(The  Weak  Convection  NOVAM  Case) 


Comments: 

Input  variables  are 


salt 
ko 


the  altitude  in  Meters  at  which  cone  is  desired, 
the  correction  factor  at  the  surface 
the  integer  Mode  nmtoer  (0..3). 
the  air  nn  parameter. 


< 

( 

( 

( 

< 

( 

< 

(  Output  variable  is  Celt  :  the  concentration  of  the  nth  siode  at  alt 

<  Note  that  the  input  calculations  for  Csurf  ie.  the  concentration  of  the 
(  nth  mode  at  the  surface  is  done  independently  in  this  procedure.  It  is 

<  however  Modified  by  the  correction  factor,  ko,  obtained  from  the  input 

<  visibility  Measurements  -  sgg  1/22/91. 

< 

< 

( 

( 

( 


There  are  certain  assinptions  made  in  this  routine  which  are  : 

for  the  sea  salt  components,  siode  2  is  mixed  in  the  cloudy  layer  model. 

where  as  the  siode  3  component  is  an  exponential  scale  height  decay. 


<  More  on  Mode  0,  if 


>  5  then  this  is  Mixed  through  out  the  layer  much) 


<  like  the  sea  salt  ande  2.  The  value  at  the  surface  is  30*  of  what 

<  would  be  predicted  for  the  old  Mode  1  system.  When  amp  >5,  then 

<  above  the  amrine  layer,  the  concentration  is  100*  what  it  would  have 
(  been  inder  the  old  skesw  whi le  on  the  other  hand,  the  value  at  the 


surface  is  70*  of  the  old  skeme  values.  On  the  other  hand,  if  amp  <»5, 
then  the  ande  0  component  is  zero  completely  and  the  Mode  1  component 
has  no  vertical  structure. 


< 

( 

( 

c  ( . 

c  (  Nevision  History: 

c  ( . 

c  {  Date  |  Progra 

c  ( . 

c  (  21  Aug  1991 
c  {  02  Oct  1991 
c  <  Nov  1992 
c  (  Nay  1993 


Remarks 


Stuart  Gathmen 
Charles  McGrath 
Linda  Hitney 
Stuart  Gathmen 


Improved  version  coded  for  PASCAL 
Consents  added 

Converted  from  PASCAL  to  FORTRAN 
Integrated  with  NOVAMSR 


C  (mtcuaiMS»BBsa6BaB8iacs*atfais«B««BBiaiiBiB8it«aisai««aBSBatss»ttBi8e) 


real  ko 

real  n,  nl,  n2,  Cip,  Csurf 

include  •radate.ine' 
include  •sodata.inc' 


c  (define  the  local  variables  from  the  RSAry  amtrix  values) 
DeltaQb  ■=  (  RSData.Qbp  *  RSData.Obm  ) 

DeltaTb  ■  (  RSOata.Tbp  *  RSOata.Tbm  ) 

DeltaQi  *  (  RSData.Qip  -  RSOata.Qiai  ) 

DeltaTI  *  (  RSDsta.Ttp  -  RSData.Thim  ) 

DeltaZ  *  (  RSOata.Zi  -  RSOeta.ZBase  ) 


c  (Here  1  want  tc  make  checks  on  the  signs  of  the  Deltas) 
if  (DeltaQb. GT. 0.0)  DeltaQb  *  0.0 
if  (DeltaQi. GT. 0.0)  DeltaQi  =  0.0 
if  (DeltaTb. LT. 0.0)  DeltaTb  «  0.0 
if  (DeltaTi .LT.0.0)  DeltaTi  =  0.0 

if  (DeltaZ. L£. 0.0)  write(*,*)  ‘error  in  radiosondes  Z‘ 

GamsT  e  (  RSData.Thim  *  RSOata.Tbp  )/DeltaZ 

GameO  ■  (  RSDate.Oim  -  RSData.Qbp  )/DeltaZ 

nl  s  (DeltaQb*GamaT  *  DeltaTb*GamaQ)*0eltaz 

n2  «  (Del  taT  i*DelteGb  -  DeltaOi*DelteTb) 

n  *  n1/n2  I  (This  is  the  "n"  in  Davidson 


Feirall 's  paper) 
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c  (Vhet  is  the  concentration  above  the  cloud  layer?  ) 
if  (anode  .EQ.  1)  then 
cip  ■  fne(SODete.AMP) 

else 

cip  *  0.0 
end  if 

c  Whet  ia  the  concentration  at  the  aea  surface?) 
if  (anode  .EQ.  0)  then 

if  (SOOata.AMP  .01.  5.0)  then 
Caurf  -  0.3*Vna(SQOata.AMP) 

else 

Caurf  a  o.O 
end  If 
endif 

if  (anode  .EQ.  1)  then 

if  (SOOata.AMP  .GT.  5.0)  then 
Caurf  «  0.7  *  fna(SOOata.AMP) 

else 

Caurf  «  fna(SOOata.AMP) 
endif 
endif 

if  (anode  .EO.  2)  Caurf  «  fnb(SOOata.UAve) 
if  (anode  .EQ.  3)  Caurf  ■  fnc(SOOata.UiO) 

c  (Calculate  the  gene  of  concentration  here) 
nl  «  (  Cip  -  Caurf  )  •  n 

n2  «  (  1.0  ♦  n  )  •  OeltaZ 

CaneC  ■  u1/n2 

c  (calculation  of  the  concentration  of  the  anode  node  at  altitude  zalt.) 

e  ( . 

c  Asauee  OanaC  has  been  calculated.  Also  aaaiaa e  that  the  nap,  ulO,  and 
c  uave  ere  known.  An  input  variable,  the  height,  Zalt,  is  used  and  the 
c  output  it  the  concentration  anplitude  Catt  at  that  altitude. 


. . > 

select  CASE  (anode) 

case(O)  I  (  The  case  for  the  dust  coaponent  } 


if  (zalt  .IE.  RSOata.ZBase)  then 
Calt  *  Caurf 
else 

Calt  «  0.3*fna(SODeta.AMP)+G«nC*(zalt-RSData.ZBese) 
endif 

if  ((zalt  .GT.  RSOata.zi)  .or.  (SOOata.AMP  .IE.  5.0))  then 
Calc  ■  0.0 
r'dif 

cased )  I  (  The  cate  for  the  background  coaponent  ) 

Caurf  ■  fna(SOOata.AMP) 

if  (zalt  .IE.  RSOata.ZBase)  then  I  (below  cloud  layer) 

Calt  «  Cs  irf 
else 

Calt  *  C$urf+GameC*(zalt-RSData.Z8sae) 
endif 

if  (SOOata.AMP  .IE.  5.0)  Calt  e  Caurf 
if  (zalt  .GT.  RSOata.zi)  Calt  *  Caurf 

caae(2>  t  (  The  node  2  seaaalt  component  ) 
if  (zelt  .IE.  RSOate.ZBase)  then 
Celt  «  Caurf 

alae 

Calt  *  Csurf+GaffaC*(zelt-RSDite.ZBaae) 
endi  f 


.76 


if  Czalt  .GT.  RSOata.zi)  Celt  *  0.0 

cete(3)  l  <  The  fresh  ,  model,  seasalt  component  > 

K3-S0.0 

I  (  > 

I  (  Uaea  a  scale  height  for  these  large  droplets  > 
if  (zalt  .IE.  RSOata.ZBase)  then 
Celt  «  Ceurf»exp(*zelt/H3) 

else 

Calt  ■  Caurf*exp('zelt/H3)+GemeC*(zett-RSData.2Base) 
andif 


if  (zalt  .CT.  RSDeta.zi)  Calt  ■  0.0 


end  select  l  c  (CASE) 
iflealt  .It.  0.0)  celt»0.0 

Calt  «  ko  *  Calt  I  (correction  for  visibility) 
and  I  (PROCEDURE  NOV AMU) 


SUBROUTINE  Opt<CS(  A0,  Al,  A2,  A3, 
$  Rh,  wavln  , 
*  Ext,  Abs  , 
$  AMPVal  ) 


C  (■■■nuMca«MiiitMaBBs«uaBaiMS>8BiBaieKmuiaaa»sistMitcsBSss) 

c  {  Purpose:  To  calculate  the  extinction  and  absorption  give  input  ) 
c  <  percenters  A0  *>  A3  ,  wavelength,  and  relative  tumidity  ) 
) 


c  ( 
c  ( 
c  < 
c  ( 
c  < 
e  ( 
c  < 
c  < 
c  < 
e  < 
e  ( 
e  ( 
c  (■ 


Called  by:  HSRJilNV  (Convection  Case),  NSR_WEAK  (Ueakconvection)) 


HSR_SBL  (Single  Inversion  Narine  Boundary  layer)  ) 
Calls  Out:  Swell,  Power 10  ) 
Preconditions:  The  tables  in  opraat  exist  ) 
Global  Variables:  caamon/opawt  > 


Revision  History: 


Date  |  Programmer  | 


1988 
02  Oct  1991 
Nov  1992 


Stuart  Gattuaan 
Charles  McGrath 
Linde  Hitney 

lunmuxiiaai 


) 

. > 

Remarks  > 

. ) 

Designed  Code  ) 

Comments  added  ) 

Converted  from  PASCAL  to  FORTRAN) 


real  y7(40),y8(40) 
real  f(3) 

real  pl/3. 14159265/ 
real  T0,T1,T2,T3 
real  E0,£1,E2,E3 
real  L 
real  R 

coamon/opmat/T0(40),T1(4,40),T2(4,40),T3l4,40), 

S  E0(40) ,E1(4,40) ,E2(4,40),E3(4,40),L(40),R(4) 

c  begin  Optica  ROUTINE 
do  aiodc  •  1  ,  3 

call  SwelKmode,  fO,  Rh,  AMPVal) 
f(aiode)  »  fO 
enddo 


Extcalc: 


Extinct i on/Absorpt i  on 


j  *  0 

if  (Rh  .EQ.  r(1 ))  j  *  1 
If  (Rh  .EQ.  r(2))  j  *  2 
if  (Rh  .EO.  r{3))  j  *  3 
if  (Rh  .EQ.  r(4>)  j  «  4 
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if  (j  .£0.  (/)  then 
jj  -  0 

else 

Jj  «  1 

•nci  f 

•C j j»0  shows  that  there  is  not  an  ox act  hunidity  fit) 
if  C  j  j  ,EO.  0)  then 
if  (Oh  .IT.  r<2»  J  •  2 
if  ((Rh  .IT.  r(3>)  .and.  (Rh.6T.r(2;i)>  j  «  3 
if  <(Rh  AT.  r(4)>  .and.  <Rh.CT.r(3)»  j  ■  4 
andi  f 


do  Ii  ■  1  ,  40  I  (calculate  y7  and  yB  for  all  wavelengths) 
if  (jj  .N£,  0)  then  i  <ie  an  exact  rh  watch) 

I  (Exact  Relative  huwidity  watch) 

Y7(IO  «  A0*po«er10(T0(li )) 

S  ♦  Al*power10(T1( J , ii))/f(t) 

$  •>  A2*pouer10(T2(v, i i )1/f  (2) 

t  ♦  A3*power10(T3(J,Ii>)/f(3> 

Y8( I i )  «  A0*power10(E0(li)) 

S  ♦  M*power10(E1(j,li))/f<1) 

S  ►  A2*»ower10(£2( j, 1  i  ))/f(2) 

*  ♦  A3*power10(E3( j ,  li ) )/f (3) 

I  (I  INTERPOLATION  FOR  RELATIVE  HUMIDITY) 


else 


06 

■ 

R(  J)-P.(J-I) 

OS 

■ 

Rh-R(J-l) 

RS 

9 

D5/D6 

XI 

a 

TUJ-1.il)* 

(Tl(J,ii)-T1(J*1,ii))*,R5 

X2 

a 

T2(J-),ii>* 

(T2(J,ii)-T2(j-1,il))*R5 

X3 

9 

T3( J-1 , i 1 )♦ 

(T3(J,ii)-T3(J-T,H))*R5 

B1 

9 

EKJ-1,  i  i  >♦ 

(E1(J,ii5*E1(J'1,H))*R5 

B2 

9 

E2(J-1,11)* 

(E2( J, ti)-E2(J-1,i i ))*R5 

B3 

9 

E3( J-1 , i i )♦ 

(E3(J,ii)-E3(J-1,ii))*R5 

Y7(  1  i ) 

-  A0* power 10(T0f  t  i )) 

endit 


♦  A1*power10(X1 )/f ( 1 ) 

♦  A2*power10{X2)/f(2) 

♦  A3*pover10(X3)/f (3) 

Y8( I i )  *  A0*power10(E0(Ii)> 

♦  A1«powerlO(B1)/f(1) 

♦  A2*pcwer10(B2)/f(2) 

♦  A3*power10(B3)/f(3> 


Y7(Ii)  «  0.001«Pi*Y7(ii) 

YB(ii)  «  0.001*Pi*Y3(  i  i ) 

enddo  I  end  calculations  of  wavlength  values  of  y7  end  y8 


<***•**• 
Ext  aba: 


Extinction  ord  absorption 
of  individual  wavelength* 
cetculetion 


10  ■  0 

(f  (uavln  ,EQ.  l(40)'t  then 
(0  =  40 

else 

do  I  *  1  ,39  l  (bracket  wav-length) 

IF  (wavln  .EQ.  LCD)  THEN 
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10  *  i  !  {wavelength  is  exact  iO  is  positive) 

END  IF 

IF  ((wavln.CT.L(D)  .end.  (wevln.LE.L<l*1)))THEN 
iO  «  -i 

END  IF 
enddo 
end  If 

if  (10  .01.  0)  then 
Ext  -  Y7(10) 

Abe  ■  YS(IO) 

•lee 

10  ■  -10 

A  a  Y7(10*1)-Y7<10)  1  <!  WAVELENGTH  INTERPOLATION) 

B  a  Y8(10*1 )-Y6( 10) 

C  a  LC 10*1 ) - L  C 1 0  > 

Ext  «  Y7(10)+A*(wevln-L(10))/C 

Abe  >  Y8(10)+B*(wavln-L(10))/C 

•niff 

END  I  OPTICS 


SUBROUTINE  DepoveKNmode,  AO,  Rrh,  T,  Ustar,  Vd,  Vgdry,  SOOata) 

c  {bp  «tsut8afBBBa>iaaaBisitiiit8itaiis8BB(BciB<ti8B8BLxckc:c:<rtaoczRC3:xc:ic) 

c  (  Purpose:  This  routine  calculates  the  deposition  velocity  (m/s ;  ) 

c  (  Celled  by:  MSR_SBL  (SimpleBLCase)  ) 

c  <  Cells  Out:  SWELL, Diff_coef,  Hu_calc,  In r,  sqrt ,  and  Hex  ) 

c  <  Comments:  This  routine  calculates  the  deposition  velocity  (m/s)  ) 


c  ( 

based  on 

the  theory  of  Slinn  t  Slim  -  A.E.  [19801  p1Q13  and 

) 

c  ( 

siodified  by  Fairall  l  Davidson  [19861 

) 

e  ( 

the  Inputs  are 

: 

) 

c  ( 

A0 

the  diameter  of  the  dry  aerosol  c«) 

) 

e  ( 

Rh 

the  relative  huc.idity  in  percent. 

> 

c  ( 

Mmode 

an  integer  (1,  -3)  ahich  describes  the  modes 

) 

e  < 

of  the  particular  component  of  the  NAM  as  to 

) 

c  ( 

it's  chemical  nature. 

) 

c  C 

T 

air  teap  (C) 

> 

c  < 

Ustar 

friction  velocity  im/t) 

> 

C  { 

The  outputs  are  : 

> 

e  ( 

Vd 

the  deposition  velocity  (m/e) 

) 

c  { 

Vgdry 

the  stokes  fall  velocity  of  e  dry  particle. (m/s) 

> 

c  ( 

c  (---■ 

> 

-) 

c  (  Revision  History: 


) 
> 
> 
) 
) 
> 
) 

c  (>8SCKI|tSiaK:BBSEC8CS5SCSBtaSSBEt:SSSBKe8IX8SBBSC£SSSSSSSSCXSIB>eSSS3ISS£) 


c  (- 
c  { 

Date 

1 

Programmer  | 

|  Remarks 

C  V" 

c  < 

1988 

Stuart  Gethman 

Code  designed 

c  ( 

02  Oct 

1991 

Charles  McGrath 

Comments  added 

c  { 

Nov 

1992 

Linda  Hitney 

Converted  from  PASCAL  to  FORTRAN 

real  R0,  F,  F99,  0,  St,  h99,  Sc 
real  Nu,  Vgc,  VgdO,  Kcp,  Kdp,  Kc,  Kd 
real  rh 
real  K 

real  Mu_cale 
Include  'sodata.inc' 

K  «  0.4 
TO  «  296.16 
C  *  393.16 
G  *  9.8 
Dw  «  1.0 
Cd  *  0.0013 
Oeneirstp  =  1.19 

rh  -  rrh 


79 


c  calculates  ths  swell  in?  faevor  F  for  the  mode  in  question 
c  use  iimode  tc  determine  the  specific  gravity  of  dry  particle: 
call  swelUMAioae,  f,  Rh:  SOCata.AHP) 


if  (Mmode  .EO.  1)  then 
HO  •  1.6 

else 

RO  ■  Z. 165 
end  if 


RO 

Nu 


R0"1000.0  I  convert  specific  gravity  to  density  IHKSi 

Mu  eelc<T*27J.16)/0en*irstp  I  calculates  kinematic  viscosity 

"  I  calculates  the  dynamic 

l  viscosity  from  T 


Vgdry  «  2.0*RO*G*AO*AO/(9.0*Mu)  l  stokes  fall  velocity 

Vgc  *  FNR(F)/RO«F*F»Vpdry 

{,79  >  99.0 

call  SwelKMrwde.  F99.  H99,  SCOata.AMP)  I  calcs  swelling  factor  F99 


VgdO  «  FNR(F99)/R0*F99*F99*Vgdry 

St  *  vgdO'Ustar»Ust«r/(Nu*G)  I  stokes  nunfcer 

K.CO  -  Ustar*SORT(t'd)/(1.0-lC)  . 

d  -  Oiff  coef<*0/2.0)  I  Brownian  Oiffusion  Coefficient 

(  Toomev  Fig  3.1  (the  divide  by  two 
I  and.  converts  from  dis  to  radius) 
Sc  »  Nu/D  i  Schmidt  number 

c  The  fol lowing  foraula  is  from  Fairall  and  Gavidson  11986) 

Kdp  “  Ustor*SQRT(Cd)/(SGRT(Sc)*K) 

kc  «  kcprvgc 

Kd  *  Kdp*vgd0 

Vd  -  KC*kd/(Kd+kcp) 

end  I  Oepovel 


c 

c 

c 

c 

c 

c 

c 

c  ( 


SUBROUTIME  WecalcC  RSCalc,  SOOata) 


Purpose: 

Called  by;  MSR_SBl  CSiaple  Merino  BL  Ceee) 

Cells  Out:  Farcel2,  We2 

Preconditions: 

Global  variables: 


<  Revision  history:  . 

c  (  Date  |  Prograamer  |  Remarks 


(- 

< 

(** 


10  Oct  1991  1  Cheries  McGrath  | 

*«»*■:>«**■«»*:>=**»*»* -'***r***-~’,”,:3®**  * —  ' 


include  'rscalc.inc' 
include  ' sodata. inc ' 

Weold  *  C.O 
Hoop  *  0 

320  continue 

call  We2(RSCalc,  SCOata) 
if  (Hoop  .EO.  0)  then 
1  loop  *  1 

Weold  *  RSCalc. We 
konstant  -  Weold 
GOTO  320 
endif 

if  (I loop  .GT.  5  )  goto  330 
if  ((RSCalc. we  .IT.  0.9*Weold)  .OR. 

%  (RSCalc. We  .GT.  1.1*Ueold))  then 
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Ueold  *  RSCalc.Ue 
lloop  ■  Iloop*1 
GOTO  320 
endif 

330  continue 

end  I  UEcalc 


SUBROUTINE  Bulk(U10,  Th,  Tdelta.  Odelta  , 

%  Uster,  Teter,  Qstar,  Tstr) 

C  {:aiti*«iDinsiKtititi«i>iia*«*iscesB«sstcs:«i«3ssc:ssBSsscts::ss:s::cs:cis) 

c  <  Purpose:  Calculate  Bulk  temperatures  and  Mixing  ratio  ) 

cC  Called  by:  MOOJiPSI .StspleBLCese  > 

c  <  Calls  Out:  SUBS4.*in,  SUBS4.amx,  > 

c  <  Preconditions:  ) 

c  {  Global  variables:  ) 

c  C  Revision  History:  ) 

c  < . . > 

c  <  Oate  |  Programmer  |  Remarks  ) 

c  ( . > 

C  C  TO  Oct  1991  I  Chtrles  McGrath  I  ) 

c  t  Hov  1992  |  Linda  Hitney  |  Converted  from  PASCAL  to  FORTRAN  > 

C  . . . 

real  KICK 

real  pi /3. 14159265/ 
real  Mult 


c  const 

KICK  ■  0.35 
ALPHA  T  -  1.35 
20T  “  -  2.0E  05 

210  -  10.0  I  from  G10BALS  {  altitude  of  10  m  > 

I  <1  from  NPGS  lines  20435  •  20645) 

I  begin  <  procedure  Bulk  ) 
if  (U10  .EQ.  0.0)  U10  ■  0.1 

if  (U10  .CE.  2.2)  then 

Cd n  n  0.789*Xtoy(Ul0,  0.259)/1000.0 

else 

Cdn  e  Xtoy(Max(0.2,  U10),  -0.15)*1. 08/1000.0 
end  if 

ZO  «  Z10*EXP(  -KKK/SQRT(C«fcl)) 

Ctn_sqrt  =  ALPHA  T*KKK/L0G(Z10/Z0T) 

Ssl  •  KKK*9. 8*210/ lh*(Ctn  sqrt/Cdn) 

*  *(Tdelta*0.0O061»Th*Odelta)/(Ul0*U10) 


SS  > 

Ssl 

So  « 

ssl 

if  (So 

.LT.  0.0)  GOTO  20360 

1  Cl 

unstable) 

if  (So 

•LT.  1.8)  GOTO  20280 

1  o 

stable) 

ic  (1 

Ivery  stable) 

Ss  * 

10.0 

Pail  ■ 

-47.0 

Pal 2  c 

-64.0 

GOTO  20470  1  (1  at  Si  s> 

20280  continue  (  I  I  stable) 

Pail  «  -Ss*4,7 
Psi2  *  -Ss*6.4 

Ss  •  So*ALPHA  T/KKK 

Ss  *  Ss*C(Kkr'SQRT(Cdn)*Psi1)*(KKK-SCRT(Cc^)»Psi1) 

*  /(ALPHA_T*KKK-Ctn_sqrt*Psi2) ) 

if  (ABS(Ss-Ssl)  .LT.  0.051)  GOTO  20470  !  <1  exit  to  stars) 
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Ss 1  ■  SB 

GOTO  20280  I  <1  stble) 

20560  continue  I  <  I  I  instable) 

Xxl  «  Xtoy((1 .0-15. 0*Ss),  0.25) 

Xx2  •  Xtoy<(1.0-9.0*Ss),  0.5) 

C  (  ANGLES  in  RADIANS) 

Pai2  *  2.0*LOG((1  ,(HXx2)/Z.O) 

Pail  •  2.0n0G((1.0*Xx1)/2.0)+lOG{<1.0*Xx1*Xx1)/2.0) 

*  -2.0*ATAN(Xx1)*Pi/2.0 

Ss  «  So* ALPHA  T/OC K 

Si  «  Ss*((KKK-SORT(Cdn)*Psi 1 )*(KKK-SORT(Cdn)*Psi 1 )/ 

S  <ALPHA_T«ICKK-Ctn_*qrt*Psi2>> 

if  (ABS(Sa-Sat)  .LT.  0.051)  GOTO  20470  <  C  I  Exit  to  stars) 

Ssl  ■  Ss 

GOTO  20360  t  Cl  instable) 

20470  continue  I  {  I  (stars) 

Mult  •  ALPHA  T*XKK/<LOG(Z10/ZOT)-Psi2) 

Ustar  ■  KKK*U10/(LOG(Z10/Zo)-Psi 1 ) 

Tatar  ■  Tdelta*Hult 
Qatar  •  odelia*Mult 
Tstr  «  Tstar*0.61*astar*Th/1000.0 

nd  I  <  procedure  Bulk  > 


c  <« 


SUBROUTINE  Whitefluxi  Sr,  U,  Rin) 


e  (- 
C 

C* 


Purpose: 


Preconditions: 
Global  Variables: 
Revision  History: 


Date 


c 
c 

c  {  01  Jan  1991 
C  (  27  Sep  1991 
c  {  Nov  1V92 


Programeer  |  Remarks 


Stu  Gathman 
Charles  McGrath 
Linda  Hitney 


Comments  added 

Converted  from  PASCAL  to  FORTRAN 


c  (a8*>l»83tll8B:S=SfStt6*S«EISI«X»ISRBaa«BS8ICailgag8ai8C«II8SB»KStm*IS) 


c  (*  This  is  a  procedure  based  on  the  table  in  Fafrall,  Davidson  l  Schacher 
c  1982,  Table  3 


c  Sr  is  the  flux  predicted  by  this  procedure  which  would  be  produced 
c  by  tAiitecspping  at  a  wind  speed  of  U  a/s  and  of  radius  Rin  in  microns 
c  of  the  droplets.  This  assimes  a  relative  hueidity  of  80%.  This  routine 
c  perform  a  simple  linear  interpolation  inbet  ween  table  values 


c  Programed  into  Turbo  Pascal  by  S.  Gathman  12/28/87 

c  This  procedure  needs  procedure  Unfit  *) 


integer  row,  rows,  I,  cool,  cols 

rest  R0  (7)  /0.0,  0.8  2.0,  5.0,  10.0,  15.0,  50.0/ 

real  U0  <7)  /2.2,  6.0,  9.0,  11.0,  13.0,  15.0,  18.0/ 

real  M  (7,  7) 
data  (CM  (i,  j),  J«1,7),  i*1,7) 

S  /0  0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0  , 

t  0.0,  1.3,  1.1,  2.5,  1.0,  3.0,  0.0  , 

S  0.0,  4.5,  3.1,  4.2,  3.3  2.3,  0.0  , 

S  0.0,  8.2,  7.7,11.0,21.0,  27.0,  0.0  , 

S  0.0,  9.1,  9.2,17.0,49.0,  48.0,  0.0  , 

»  0.0,11.0,10.0,19.0,72.0,140.0,  0.0  , 

S  0.0,17.0,11.0,24,0,92.0,180.0,  0.0  / 

i  begin  (  WhiteFlux  ) 

Sr  •  0.0 
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Rows  «  0 
Row  •  0 
I  »  1 

if  (u  .IT. 2. 2)  return  I  {Sr  remains  zero  if  no  whitecapping  exists) 

100  continue 
ctrh  repeat 

if  (u  .EO.  u0(i))  then 
row  ■  ( 
rows  ■  1 
end  if 

if  (u  .IT.  u0(O)  row  «  i 
i  •  i*1 

ctrh  tntil  ({  .GT.6)  or  (row  .NE.  0) 

if  ((i  .IE.  6}  .and.  (row  .EO.  0))  go  to  100 

I  {Wind  is  sortad  out  at  this  point) 

If  ((Rows  ,EQ.  0)  .and.  (row  .EO.  0))  than 
sr  »  9999.0 
return 
endif 

Cool  ■  0 
cols  *  0 
i  ■  1 

200  continue 
clrh  repeat 

if  (Rin.EQ.RO(O)  then 
Cool  ■  i 
COlS  «  1 

endif 

if  (Rln.LT.RO(i))  cool  «  i 
i  a  Sal 

clrh  until  (i.GT.7)  or  (Cool  .NE.0) 

if  (((  .IE.  7)  .and.  (Cool  .EO.  0))  go  to  200 

1  {exact  fit!) 

if  ((rows  .EO.  1)  .and.  (cols  .EO.  1)}  than 
sr  ■  ■(row,  cool) 
return 
endif 

!  (exact  wind,  fit  size) 
if  ((rows.EQ.1)  .and.  {cole. ME. 1))  then 
call  linf it(Cr,  Rin,  RO(Cool-l),  M(Row,  Cool-1), 

%  RO(Coot),  M(Row,  Cool)) 

return 
endif 

I  (exact  site,  fit  wind) 
if  ((rows.NE.1)  .and.  (cols.EQ.1))  then 
call  linfit(Sr,  U,  UO(Row-l),  M(Row-1,  Cool), 

S  UO(Row),  M(Row,  Cool)) 

return 
endif 

l  (fit  both  site  and  wind) 

call  Linf it(Sr1,  U,  UO(Row-l),  M(Row-1,  Coot-1), 

*  IKK  Row),  M(Row,  Cool-1)) 

call  Linf it(Sr2,  U,  UO(Row-l),  M(Row-1,  Cool), 

*  UO(Row),  *(Row,  Coot)) 

call  Linf it(Sr,  Rin,  RO(Coot-l),  Sri,  RO(Cool),  Sr2) 
end  I  (  procedure  White  flux  ) 


83 


SUBROUTINE  LinfitC  Y,  X,  XO,  YO,  XI,  Y1)l  real) 


c  <  Revision  History:  > 

o  C . - . 

c  C  Data  |  Progrsemer  |  Remarks 


c 


c  C  01  Jan  1991  Stu  Gathaan 

e  <  27  Sap  1991  Charles  NcGrath  Comments  added 

c  <  Nov  1992  Linda  Hltney  Converted  from  PASCAL  to  FORTRAN 


I  begin  C  Unfit  ) 

Y  •  YO*CX-XO)*(Y1-YO)/<X1-XO) 
end  I  (  LinFit  > 


SUBROUTINE  Sky2<Zd,  ROataAry,  TIO,  Op,  Tsky) 

c  {amtnaMiiaMuinauiiiaiiiiiiuiiiiiiiailMiimBiiiimuiDiiHaiiBii) 


c  C  Pirposa:  Calculate  sky  temperature  based  on  calculated  fluxes  ) 
ct  Called  by:  MOO  XPSI.SimpleBICese  > 
c  {  Calls  Out:  SUBS2.xtoy  > 
c  C  Comments: 


c  C  DEFINITIONS:  > 

C  (  NSNO  •  NUMBER  OF  POINTS  IN  THE  SOUNDING  > 

c  C  OTDZU  «  POTENTIAL  TEMPERATURE  LAPSE  RATE  C/N  ) 

c  C  DQOZU  *  NIXING  RATIO  LAPSE  RATE  G/KG/M  > 

c  {  ZINV  •  INVERSION  HEIGHT,  TOP  OF  MIXED  LAYER  N  > 

C  C  OTH  •  POTENTIAL  TEMPERATURE  JUMP  AT  INVERSION  ) 

C(  OOP  «  MIXING  RATIO  JUMP  AT  INVERSION  G/KG  > 

C(  SO  *  DOWNWARD  FLUX  AT  Z  C-M/S  > 

c  <  EFO  *  EMMISSIVITY  OF  NIXED  LAYER  ) 

C  <  SH  ■  UPWARD  FLUX  AT  Z8  C-M/S  ) 

c  <1  Ratio  *  Rdata(1,2);  1  surface  potential  temp  from  radiosonde  > 

c  (I  Rs<f>  ■  Rdata(1,3);  I  surface  mixing  ratio  from  radiosonde  ) 

c  <1  Zbase  ■  Rdatal2,1);  I  height  of  base  of  cloud  leyar  ) 

c  <l  Zb  b  zbase;  > 

c  (I  Tbm  -  Rdste(2,2);  I  potential  taapersture  at  Cloud  base  -  > 

c  Cl  Qbm  a  Rdeta(2,S);  1  mixing  ratio  at  cloud  base  -  5 

c  <1  Tunits  ■  Rdata(3,1);  !  ) 

c  Cl  Tbp  ■  Rdata(3,2);  I  potential  temperature  et  cloud  bese  ♦  ) 

c  <1  Obp  a  Rdata(3,3);  !  mixing  ratio  at  <  oud  base  *  > 

c  Cl  Zi  ■  Rdata(G.I);  I  height  of  the  cloud  top  ) 

c  Cl  Thim  ■  Rdata(G,2);  I  potential  teaperature  at  cloud  top  -  > 

c  Cl  Oim  a  Rdata(A,3);  I  mixing  ratio  at  cloud  top  -  > 

c  Cl  Ounits  a  RdatmCS , 1 ) ;  I  > 

c  Cl  Tip  a  Rdata(5,2>;  I  potential  teaperature  at  cloud  top  ♦  > 

c  Cl  Qip  *  Rdata(5,3);  I  mixing  ratio  at  cloud  top  ♦  ) 

c  C  > 

c  C  INPUTS:  > 

c  C  2D  *  HEIGHT  AT  WHICH  CALCULATION  TO  BE  DONE  > 

c  C  T10  •  THE  M1XEO  LAYER  POTENTIAL  TEMPERATURE  > 

C  C  OP  a  THE  MIXING  RATIO  IN  THE  MIXED  LAYER  (G/KG)  ) 

C  C  > 

C  C  OUTPUTS  :  TSKY  •  EFFECTIVE  SKT  TEMP  AT  HEIGHT  Z  ) 

C  { . ) 

)  > 

c  (  Revision  History:  ) 

c  ( . > 

c  (  Date  |  Programmer  |  Remarks  ) 

c  { . - . ) 

c  (  S.  Stsge,  NPS  Original  Code 

c  (  C.  Fairsll,  NPS  Modifications 

c  <  1988  S.  Gsthmen,  NRl  Adaptation  to  NOV  AM 

c  (  02  Oct  1991  Charlts  McGrath  Comments  added  ) 

c  (  Nov  1992  Linda  Hitney  Converted  from  PASCAL  to  FORTRAN  ) 

C  . . . . ••••••»-) 


real  RDataAry(200,3) 

real  Pot_te«p(200),  $pec_hum(200),  Zsnd(200) 


real  Ea\it(2) 
real  lhrend(200), 
real  Hand 
real  Metis,  index 
real  1* 

inteser  Keep,  I, 


Ot»nd(200>,  ZK200) 

ii 


Cad  ■  0.0098 
RhoO  •  1.225 
Zscale  ■  10094.0 
sals  •  4 .616* 1 1 

U  ■  0.0 

S  ■  0.0 
11-1 


nand  ■ 
Zbaae  ■ 
Otdxu  • 
Dqdzu  * 
Ztnv  • 
2b  ■ 

Oth  • 
Oqp  * 
T10  * 

Op 

Index  ■ 

i  ■ 


int(W>ata*ry(1,1))-5 


R0ataAry<2,1) 
(RDataAryd, 2) 
(R0ataAry(2,3) 
Zbaae 
Zbaae 

(RDataAryd, 2) 
(RDataAryd, 3) 
(RDataAryd  ,2) 
(RDataAryd  ,3) 


-  RDataAryd  ,2))/Zbate 

-  RDataAryd  ,3)  )/2baee 


-  RDataAryd, 2)) 

-  RDataAry(2,3)) 

+  R0ataAry(2,2))/2.0 
♦  R0ataAry(2,3))/2.0 


1 

1 


300 

clrh 


elrh 


continue 


repeat 

7snd( 1 ) 
Pot_tenp(  1 ) 
Spec_hu«(  1 ) 
Index 

1 


RDataAryd  *5, 11 
RDataAryd  *5, 2) 
RDataAryd  «S,  3) 
index+1 
i*1 


until  index  .GE.  nand; 
if (index  .It.  nand)  so  to  300 


Keep  «  0 
index  ■  1 

i  »  1 


305  continue 
clrh  repeat 

if  (ZandCl)  .U.  Zb)  then 
Zr(l*Keep)  “  ZandCl) 
Otend(l*Keep)  ■  Op 
Thrandd+Keep)  «  110 

if  (ZandCl)  .LI.  Zb)  0010  19090 

if  (Keep  .EO.  1)  GOTO  19090 

Zt(l)  *  Zb 

Qtandd)  ■  ®P 

Thrandd)  ■  110 

Keep  ■  ' 


19090  continue 

if  ((Zand(l)  .CE. 
Otandll  eKeep) 
IhrandC  1+Keep) 
endif 


Zb)  .AND.  (Zand(i)  .LI.  3000.0))  then 

*  0pr0qp*DqdiU*(Zand(l )-2b) 

«  TlO*Dth*Dtdty*(Zandd)'Zb) 


If  (Zand(i)  .Ot.  3000.0/  then 
Qtandd  *Keep)  *  SpecJtuaO) 

Thrandd  *Keep)  ■  Rot_te«pd) 
endif 

if  i(l  .01.  1)  .ARC.  (Zandd)  .EQ.  0.0)>  then 
Qtandd*Keep)  ■  0.0 
Thrand(l*Keep)  *  0.0 
endif 
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ZsncK  ( ) 


if  (Keep  .£0.  1)  Zz(l*Keep)  = 
index  -  index*1 

(  «  i*1 

clrh  tfitil  (index  .OE.  Nend-1>; 

if  (index  .It.  Nsnd-1)  bo  to  305 

Meade  • 

Check  * 

Chick  • 

S  • 

u  • 

Icloud  ■ 

Mend  ■ 


22.0 

0.0 

0.0 

0*0  I  Cedded  6/17/88  eo  thet  am  etart*  out  properly  SCO 
int(Nend)  I  O  ASSUME  NO  UPPER  LEVEL  CLOUDS) 

Mend-1 


if  (Nsnd  .LE.  0)  return 
<  top  ■  1 

do  while  (zx(itop)  .LE.  zd> 
itop  •  itop»1 
tnooo 


I  (l  line  16550  in  npfls  program) 


2,  1,  2,  1#  2, 


Itop  •  Itop-1 
if  (Itop  .LE.  0)  Itop  «  1 
19400  continue  _  #l 

Tte  »  Thrend(Itop)-C»d*Zz( Itop) 

Eait(Ii)  -  0.0 

index  “  itop*1 

i  ■  i tope 1 

do  while  (Index  .LT.  (nsnd-1)) 

I<  «  3-li  I  (  ii  «  1,  2,  1,  2,  1, 

I  <  every  pate  ) 

!! !!,«!;  ’«? 

if  ((Zz(I)  .6T.  Zb)  .AND.  (Chick  .EO.  1.0))  0010  19840 

U  ■  U*Otend(l)*(5.0E-05«(ZZ(l*1)-Zz(I-1))*RhoO* 

*  EXP(-Zz(l)/Zacale)) 

V  «  U 

Chick  .EO.  1.0)  V  »  U0-U 
I lnt779(Neeiie(  V,  Emit(ii),  Ee,  Ie) 

•  Thrend(I)-Ced,Zz(I)  _ 

«  S-EmitO  i )*Seifl*(  Xtoy((Tt*273.16),  4.0)- 

Xtoy((Tte*273.16),  4.0))/  00.0 

*  Tt 
index*  1 
i+1 

I  (  While  ) 


changes  ) 


if  ( 
call 
Tt 


Tte 

index 


19580  continue 


tt  *  zz( int(nsnd)) 

Tt  •  Thrsnd( int(Mend-1 ))-Gad*Zz( int(Nend- 1 )) 

Xyi  •  Rho0*EXP( -Zz( int (Nsnd- 1 ))/Zec»le) 

U  ■  o*Otend( int(Nend-1))*0.0001*(Zz(int(Nend-1)>- 
t  Zz(int(Nend-1)-1))*xyz 

V  ■  u 

if  (Chick  .EO.  1.0)  V  »  U0*U 

cell  I  lnt779lNemis,  U.  Eeiit(li),  Ee,  le) 

S  »  S*Se«8*Xtoy((Tt*273.16),  4-0)*C«it(I 0/100.0 

icloud  «  Int(Msnd) 

Mop  ■  0-0 
GOTO  19730 


19710  continue 

Tt  ■  I hrend( I  cloud) -Ced*Zz( Icloud) 

flop  ■  SeiB*Xtoy((Tt*273.16),  4.0) 

19730  continue 

teky  ■  (ftop*(1.C-emit(H))*S)/ss'9 
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if  (tsky  .IT.  0.0)  then 

tsky  *  273. U  I  (there  is  a  failure  in  routine) 

else 

Tsky  ■  Xtoy(((Ftop*(1.0-Emi t(l i))+S)/Ssig),  0.25) 
endi  f 
SO  •  S 

if  (2d  .HE.  0.0)  return  I  EXIT  SJCY2 
Chick  ■  1.0 
U  ■  0.0 
S  «  0.0 
GOTO  19400 

19800  continue 

EfO  •  Eaiit(Ii) 

UO  *  U 
Check  •  1.0 
GOTO  19580 

19840  continue 
Sh  *  S 
return 

end  I  (  Sky2  ) 


SUBROUTINE  Hnt779(Nxy,  X,  r,  Slope,  lx  ) 


C  . . . 

c  <  Purpose:  Interpolation  routine  used  by  procedure  Sky2  > 

c  (  Called  by:  Sky2  ) 

c  (  Calls  Out:  SUBS4.ai<n,  SUBS4.max  ) 

c  (  Preconditions:  ) 

c  (  Global  variables:  ) 

c  (  Revision  History:  ) 

c  ( . ) 

c  <  Oate  |  Programmer  |  Remarks  ) 

c  ( . ) 

c  (  02  Oct  1991  I  Charles  McGrath  I  Consents  added  ) 

c  (  Nov  1992  I  Linda  Hitney  |  Converted  from  PASCAL  to  FORTRAN  ) 

C  ■t.o».i(>..a.n>.a.i..>ll.un..i») 

e  begin  c  (  Procedure  IInt779) 

c  (!  this  it  an  interpolating  routine  called  by  SKY2  twice  ) 
c  (I  INPUTS  :  nxy,  x  > 

c  (I  Stored  constants  xarray,  yarray  are  Tu  and  Temis  ) 


c  (I  outputs  :  y,  slope,  lx  ) 


real  Tu  (22) 

S  /  0.0,  1.0E-05,  2.15E-05,  4.64E-05,  0.0001,  0.000215, 

S  0.000464,  0.001,  0.00215,  0.00464,  0.01,  0.0215, 

S  0.0464,  0.1,0.215,0.464,1.0,  2.15,  4.64,10.0,  21.5,  46.4/ 

real  Temis  (23) 

S  /  0.0,  1.86,  2.58,  4.11,  5.72,  7.81,  11.4,  14.6,  18.3, 

S  23.6,  27.7,  31.9,  37.4,  41.7,  46.2,  52.9,  59,  66.6, 

S  78.8,  88.1,  95.1,  98.8,  -999.0/ 

real  txmax 

real  Mxy,  X,  Y,  Slope,  lx 
lx  •  0.0 

Ixmax  *  Nsx(1.0,  Ixl 
lx  ■  Mintlxmex,  Nxy-1.0) 

19940  continue 

if  (Tu(int(Ix)).LT.X)  GOTO  19980 
if  (lx  .EG.  1.0)  GOTO  20020 
tx  -  Ix-1.0 

GOTO  19940 

19980  continue 
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if  (X.LE.Tu(int(lx)4l))  GOTO  20020 
if  < Ix^l.O  .EO.  Nxy)  GOTO  20020 
lx  »  1X41.0 
GOTO  19940 

20020  continue 

Slope  •  (Temfs(int(Ix)4l)‘Taels(int(Ix)))/(Tu(int(Ix)4l) 
S  -Tu(1nt(lx)» 

Y  ■  Slope*(X‘Tu(int(Ix)))4Tamls(int(lx)> 
end  1  (  Procedure  llnt779> 


SUBROUTINE  Ue2(RSCalc,  SOOate) 

C  (•■mtnnmMnMatniitmtsimtBKiaiiiRSBuauiBBiGxteissiaiitiiimsBB:) 

c  {  Purpose:  ) 

c  C  Called  by:  UeCelc  ) 

C  i  Cells  Out:  SU8S4.aax,  $UBS4.min,  SUBSi.fnK,  SUBS2.xtoy  3 

c  <  Preconditions:  ) 

c  f  Global  variables:  ) 

c  <  Revision  History:  ) 

C  < . 3 

c  (  Oate  |  Prograamer  |  Remarks  3 

c  < . 3 

c  <  10  Oct  1991  |  Charles  McGrath  |  3 


c  C . 

I  This  aid:  program  calculates  entrainment  velocity,  longwave 
I  cooling  and  average  cloud  temperature  if  cloudy,  and  emiaaivity. 
I  routine  PARCEL2  must  be  called  previously. 

I  inputs  : 


1  Zirrv  Height  at  top  of  aiixsd  layer  (a) 

2  Zlcl  lifted  condense: ion  level  (a) 

3  Dte  Equivalent  tamp  jimp  at  zinvnv  (C  or  K) 

4  Dqw  Mixing  ratio  jump  just  below  zinvnv  (g/g) 

5  Oa  Nixing  ratio  just  below  Zinv  (g/g) 

6  Theent_at_z  Potential  temperature  Just  below  Zinv 

7  01 iq  Llquit  Water  Mixing  Ratio  juat  below  Zinv 

8  T10  Mixed  Layer  Potential  Temperature  (c) 

9  Tafc  Sea  surface  Tesperature  <K) 

10  Uttar 

11  Tatar 

12  Qatar 

13  Tatv 

14  Tsky  Effective  Sky  Tenperature  (k) 


I  OUTPUTS  :  Ue  entrainment  Velocity  (a/a)  updates  RSCAIC.WE 
I  R20EL  cooling  if  cloudy  (a  C/t) 

I  tbar  Average  Cloud  Temperature  (K) 

l  Emits  Emiaaivity 

. . ) 


coamon/globata/dte,dqw,wthe,wq,ustar,tstar,qstar,tatr,tsky 
real  Uth,  Wq,  Wthv,  Ml,  Ml,  M2,  N2,  M3,  N3,  We2tap,  Wx,  Bb 
real  IJS 

include  'rscalc.inc1 
include  'aodata.inc' 

1  (added  InitUeOata  3/8/89  since  qliq  wasn't  known,  agg) 
call  Parcel2(RSCalc,  SOOata,  RH  in  Situ,  TH  at  ZHgt, 

%  0  V,  0  L,  Z  L  CL,  TH  V,  T  Cent7  t~S) 


Zlcl  ■  Z_L_CL 
Dqw*  ■  dqw/IOOO.O 
c  dqwt  ■  dqw 

Qt  ■  0_V/ 1000.0 

Theent  at_7  ■  TH  at  ZHgt 
Qliq  »  OJ./10C0.0- 
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T10  *  SODate.TIO 

T«f  c  •  SOOeta.Teea*273.16 
c  Uttar  ■  UeOtta(IO) 

c  Tatar  ■  WaOita(ll) 

c  Qatar  •  tt«Oata(12> 

Tatv  •  tatr 
c  Taky  ■ 

Oth  *  Dte-2460n>qws 
Thr  «  Theant  at  z*273.16 
Th  «  110*273.16 
Epalion  •  0.622 
SaiQM  -  4.61E-11 
Ul  ■  Qllq*1250.0 

Eaita*  •  *<RSCalc.Zlnv*Zlel)*0.1S8*Wl/2.0 

If  (aailaa  .IT.  10.0)  than 
aataa  ■  1.0 
alaa 

Eaita  -  1.0*EXP(aniaa) 
and  it 

Emit*  > 

Tc 

Tb  ■ 

Tbar  ■ 

Dqsdt  ■ 

Bata  ■ 

02 

Othl  • 

01  ■ 

t  {I  lOlaOthl+Epal lon*Dqw  lataga  t  butlnger  1  aqn  12) 

Sac  -  Banco. 0,  Zlct/RSCaln.Zinv) 

Sea  ■  BlnCSea,  1.0) 

Kb  -  Eaiaa*SaigaM*(Xtoy(Tb,  4.0)Xtoy(Tsky,  4.0)) 

rc  •  Emlse*Ssfgma*(xtoy(Tafe,  4.0)-Xtoy(Tc,  4.0)) 

If  (Sac  .EO.  1.0)  than 

Rb  a  0.0 
Rc  ■  0.0 

endif 

Uth  a  -Uatar*T»tar 
Uq  ■  -Ustar*08tar/ 1000.0 
Wthv  ■  -Uatar*Tatv 
Wthe  -  Wth*2460.0*Uq 

Ml  ■  (2.0*$ee)*$ee*fnH(Vthv)* 

t  ( 1.0* $«•)*< 1.0-S#a)*fnH(Beta*wthe-Th*Wq) 

Nl  »  (2.0*$ae)*See*fnH(-Wthv)* 

S  (1.0*See)*{1.0'$ae)*fnM(-Beta*Uthe*Th*Uq) 

M2  «  See*See*(fnH(Rb>-Rc)* 

S  C1.0-Sea)*(1. 0-See )*Beta*Rc+(1.0*Saa*Sea)*Beta  fr>H(Rb) 

N?  ■  Sae*See*fnH(-Rb)*(1 .0*See*See}*Beta*fnh(*Rb) 

M3  *  (1 .0-$ee*Sae)*fnh(*D2) 

r3  *  Sea*Sae*D1*(1 .0'Sea*See)*fnH(D2) 

Ua2tap  ■  (0.2*(M1*M2)'(II1*M2))/(B3'0.2*H3) 

Wx  a  U*2tmp 

If  (Ue2tap  .LT.  0.0)  Wx  *  0.0001 

Bb  a  0.5*(H1*M2*N1+)l2*Wx*(M3*M3))*RSCalc.Zinv 

If  (bb  .GE.  0.0)  than 

Watr  *  xtoy((2. 5*9.8/300. 0*Bb>,  0.333) 

alia 

Watr  •  0.0 
endif 


Max(0.0,  Emits) 

Th-0.0098*Zlcl 

Thr-0.0098*RSCalc.Zinv 

(Tb*Te)/2.0 

0.622*Qa*<2460.0/(0.287*Tbar*Tbar)) 

<  1 .  0*Th*  <  1 .  0*Eps  1 1  on)*0qsdt )  /  ( 1 .  0*2460 . 0*Dqsd  t ) 

Bete*Dte-Epsi lon*Tbar*Oqws 

Dth-(Thr-Th) 

Othl*(  1 ,0*Epal  lon*Qs)*EpeUon*Tbar*Oqws 


if  (Wstr  .LT.  0.0)  Wttr  *  0.0 


89 


if  (We2t*p  .GE.  0.0)  GOTO  23529 


If  ((02  .LT.  0.0)  .AMO.  (See  .IT.  1.0))  then 
We2tsp  ■  0.005*(1.0-See*See) 
c  call  UpdateLogC CLOUD  INSTABILITY' ) 

end  if 

If  ((01  .IT.  0.0) .AND. ((See  .EQ.  1 .0) .AND.(Wthv  ,GT.  0.0)))  then 
We 2 tap  ■  0.001 

c  call  UpdateLog( ‘ENCROACHMENT ' ) 

end  If 

If  (We2tap  .LT.  0.0)  then 
We 2 tap  ■  0.0001 

C  call  UpdateLogC  NEGATIVE  CALCULATED  ENTRAINMENT') 

end  if 

23S20  continue 

R2det  ■  Rb-Rc 

We  •  Ue2t«p 

RSCalc.WE  «  we 

RSCalc.wstr  ■  wstr 
end  I  (  Procedure  WE2  > 


SUBROUTINE  ParcelZLrscalc^odata.Rh,  Th_at_z,  Ov,  01, 
S  Zlcl  ,Thv,Tcent, Is) 


e  (  Purpose:  } 

c  (  Called  by:  We2  } 

c(  Calls  Out:  SUSS4.a»x,  Ovalue,  TOFlnd  ) 

c  (  Preconditions:  ) 

c  (  Global  variable*:  ) 

c  (  Revision  Hlatory:  ) 


c  (  Oate  |  Programmer  |  Remarks  ) 

e  ( . ) 

c  (  10  Oct  1991  I  Charles  McGrath  I  ) 

c  C  27  Aug  1993  |  Stuart  Gathman  |  Slapllfy 


C  {aaaaanaaairaa«a«aaaaaauaaiiaaaaaaniaaaiaa»MBaaaaa8asaa*aa«aaa*an«*BflB«a8) 

coaMonyglobals/dte,dqw,wthe/wq,ustar,t»tar/qstar,tttr, tsky 

real  It 

real  Lcpgkg  /  2.46/  Ifroet  global*. pal 
include  'rsc*lc.inc' 
include  'sodata.inc' 

TlOe  ■  RSCalc.tlOe  I  equiv  teaper*ture  of  aixed  layer  at  10  vsrINIT) 

Op  •  sOData.Op  I  Mixing  ratio  of  aixed  layer  varlNIT) 

c  Ote  •  I  Japt  In  equlv  leap  at  inversion  PROfile) 

c  Oqw  ■  I  jimp  in  alxing  ratio  at  inversion  PROFILE) 

We  ■  RSCalc.We  I  entrainment  velocity  initially  .001  then  from) 

c  Wthe  *  I  input  from  surface  flux  routine) 

c  Uq  *  I  input  from  surface  flux  routine) 

Wstr  ■  RSCalc.Wsti 

Ustr  •  ustir  I  ustar  from  bulk  routine) 

Zb  ■  RSC»lc.?inv  l  height  of  boundary  layer  from  varlNIT) 

Z  >  500  I  height  of  desired  calculations) 

P*fc  •  1013.0  I  surface  pressure  from  varlNIT) 

Gam  >  0.0098 

Gamdew  =  0.00804 
Oq  «  Op 

at  ■  op 

Zz  «  0.0 

TdIO  •  Td(0q,  Psfc) 

Zx  «  z 

Thr_*t_z  *  T10e-Lcpgkg*0t 
Th_*t_z  »  1hr_at_z 
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Tdot 


-  TdIO 


tf  (Wstr  .Ct.  0.0) 
Gaw qua  *  0.0 
Gaarthe  »  0.0 

•  la* 


theft 


Gaaithe 
end  If 


S0«T (Mat r*W«t r+6 .0*U*t r*U«t r ) 

(2.5*We*Dqw-Uq)/(0.3«2b*Mi> 

(2.5*Wen>te-Wthe)/(0.15*Zb*MO 
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Gawdau  ■  O.OO8+(Td10+273.O6)*(Td1O*273.O6)/5li00.0/Op*Ga»»que 

Gawth  ■  Ga»the-2.43*Ga*que 

Za  ■  Mox((Thr  at  t-Tdot)/Ga*deu,  0.0) 

Zt  ■  Za 
Aa  ■  1.0 
Dz  •  5.0 

do  While  (Oz  .IE.  250.0) 

Zt  a  Zt*Aa*5.0 
Qtz  a  QtaGaaque'Zt 
Zthe  ■  T10e+Oamthe*Zt 
Th_at_Z  a  Zthe-lcpgkg*Qt2 

continue 


Tdo 

■ 

Th  at  z-GanfZt 

Tcent 

ft 

Tdo 

Tx 

* 

Tdo 

Zz 

■ 

Zt 

Pr 

* 

EXP(-0.00012145*Zx)*Psfc 

Ov 

ft 

rWIx  ratioCTx,  100.0,  Pr) 

Tx 

ft 

Tdo+0.001 

Qva 

■ 

rMlx_rat1o(Tx,  100.0,  Pr) 

Dqdt 

ft 

(Qva-Qv)/0.001 

Thk 

ft 

Th_at_i*273.16 

Tk 

ft 

Tcent+273.16 

Othe 

ft 

Zthe-Thk*(1.0*lcpgkg*Ov/Tk)*273.16 

Othe 

ft 

D  the/ ( 1 . 0*Lcpgkg*Ov/Tk+Thk/ 

S  Tk*lcpgkg*C'qdt ) 

if  (ABS(Dthe)  .GE.  0.0001)  then 
Th_at_z  ■  Th_at_x*Othe 
Qaat  ■  Qv 
end  if 

If  (ABS(Othe)  .GE.  0.0001)  go  to  120 
I  (return) 

If  ((Oz  .EQ.  5.0)  .AMO.  (Qaat. IT. Qtz))  Aa  -  -1 
if  ((Aa  .EQ.  1.0)  .AMD.  (Qaat. IT. Qtz))  GOTO  21S90 
if  ((Aa  .EQ.  -1.0)  .AMD.  (Qaat. GT. Qtz))  GOTO  21590 
dz  ■  dz*5.0 


21590  continue 

Zlcl  a  zt-2.5 
Qtz  ■  Qt«Gamque*2 
Zthe  *  T10e+Gfc>ithe*Z 


If  (Uatr.GT.0.0)  then 


G  tuque 
Gamthe 
elae 
Mi 

Gaeque 

Gaaithe 

•ndif 


0.0 

0.0 

$QRT(Wttr*W8tr*6.0*Uair*Uatr) 

(2.5*Ue*Dqw-Uq)/(0.3*Zb*Wm) 

(2.5*W«*Ote-Uthe)/(0.15*Zb*M») 


Zt  a  2 

if  (Z  .GE.  Zlcl)  GOTO  21790 
la  »  0.0 

Th_at_z  ■  Zthe-lcpgkg*oti 
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Tx  =  Th_Bt_t-G*fn*Z 
Zz  “  2 

Ovb  o  rNix  ratioiTx,  100.0,  Psfc) 

Rh  «  0tt/5vt>»100.0 
Oq  «  OtZ 
6v  m  OtZ 
Tdot«  Td(Oq,  Psfc) 

Thd  *  Tdot+Gamdew*2 
Tcent  *  Th_at_z-Ga*»*Z-273.15 

21760  con  t  i  nut 

01  »  Qtz-fiv 

Thv  ■  (Th  at  z*273.16)*(1.0+0.00061*0v*ci*0.001>-273.16 
OOTO  22170“ 

21790  continue 

Is  ■  1.0 

Th_at_Z  ■  Zthe-ucpjk(j*0ti 

220  continue 

Tdo  ■  Th_at_x-Ga«*Zt 
Tcent  *  Tdo 
Tx  c  tdo 
Zz  «  Zt 

Pr  ■  EXP(-0.000121G5«Zz)*Psfc 
Ov  *  rNix  ratioiTx,  100.0,  Pr) 

Tx  «  Tdo+0.001 

Ova  *  rMix_ratio(Tx,  100.0,  Pr) 

Dqdt  ■  (Ovt-Ov)/0.001 

Thk  -  Th_atjt*273.16 

T«  «  Tcent*273.16 

Dthe  -  2the-Thk*(1.0*Lcpgkg*Ov/Tk)*273.16 
Dthe  *  Dthe/(1 .0+Lcogkg*Qv/Tk*Thk/Tk*Lcpgkg*Dqdt) 
if  (ABS(Dthe)  .Of.  0.0001)  then 
Th_ot_Z  *  Th_»t_z*Otht 
Qttt  *  Ov 
endlf 

if  (ABS(Dthe)  ,GE.  0.0001)  go  to  220 

!  {return) 

Rh  *  100.0 

Tcent  «  Th  at  z'G«m*Z 

GOTO  21760 

22170  continue 

end  I  ParcelZ 


block  data 

c  {s;atlSmiB8CCRaCtBBKatBraiBBICMCtmMH-..*ailiag83El8sKSXSS«IS3ltS«8S8U) 


c  (  File  Name:  TABLES  ) 

c  <  ) 

c  <  Purpoae:  Define  global  constants  ) 

C  {  for  NOVAMSR  ) 

c  {  > 

c  <  Revision  History:  ) 

c  < . ) 

c  (  Version  |  Date  |  Programmer  |  Remarks  ) 

c  { . ) 

c  (  1.00  |  OS  Nov  1991  |  Charles  McGrath  |  Made  Many  globals  local  ) 


C  (tBiafBmaCB:uxttBliiitB8SkCXt»i2tt8ta«tiBtiiaiK«isiSBtBX3SS3eice8sssiB»E) 

c  { . 

c  THIS  UNIT  DEFINES  THE  REFRACTIVE  1N0E  MATR1CIES  USED  BY  THE 
c  NOSC  PROGRAMS 

c  AER01K9)  [3]  l  WATER  (1691  C3] 

C  ANO  THE  PRE  CALCULATED  OPTICAL  PARAMETERS  MATRICIES 
c  TO,  T 1 ,  T2,  TS,  EO,  El,  E2,  E3,  L  ANO  R 

c . ) 
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r»«l  T0,T1,T2,T3 
real  E0,£1,E2,E3 
rnt  L 
rnl  R 

COSeaon/op«iat/T0(40),T1<4,40>,T2<4,40),T3<4,40), 

*  EO(40),E1(4,40),E2(4,40)  ,Ei(4,40)  ,'..(40)  ,R(4) 


C  < 

Cl 

Cl 

Cl 

cl 

Cl 

cl 

cl 

cl 

cl 

cl 

cl 

c- 


The  following  data  was  added  7Aug86 
Detain: 


Data  Array  Input  Code 

Thla  is  the  lateet  aet  of  data  from  the  runs  on 
the  NTl  -  CRAY  using  90  strips  for  the  integration. 
This  recalculation  done  in  Jan  1986  by  SGG. 

This  is  now  coded  to  work  with  FORTRAN 
It  now  includes  dust,  bl  aerosol,  and  Seasalt 


c  <  Data  TOQext  this  is  loglO  of  extinctions  for  dust,  no  growth) 


data  <T0( i ), 
S/-2. 923469, 

$  -4.137672, 
-5.103556, 
-5.095074, 
-4.842967, 
-5.139279, 
•4.978893, 


i«1,4t' 

-2.959912, 

-4.703840, 

-5.217363. 

-5.084157, 

-4.831179, 

-5.190232, 

-5.186926, 


-2.987542, 

-4.895752, 

-5.296889, 

•5.048526, 

-4.850442, 

-5.196406, 

-4.969319, 


-3.173103,  -3. 
-5.076487,  -5, 
-5.327413,  -5. 
-5.195929,  -4 
-4.968551,  -5, 
•5.246624,  -5 
-5.060012/ 


302204,  -3.616221, 
037593,  -5.163872, 
289900,  -5.102895, 
944125,  -4.894694, 
043366,  -5.C77295, 
277893,  -5.2J5742, 


c  <1  0ATA  T10EXT < 1 1 >  RH-50X,  LoglO  of  extinction,  Gerber  growth,  bl  aerosol) 


data  «T1(i,J>,j-1,40),i-1,4) 

$/-3. 109512.  -3.257849,  -3.312177,  -3.607813,  -3.783940,  -4.165230, 

5.026904,  -5.145560,  -5.032574,  -4.290340, 

5.497191,  -5.579665,  -5.614251,  -4.962693, 

-5.072424,  -5.373218,  -5.411415,  -5.457934,  -5.390972,  -5.322320, 

-5.318533,  -5.299478,  -5.443818,  -5.392556,  -5.311473,  -5.180292, 

-4.880810,  -4.919121,  -4.935093,  -4.987036, 

-5.278560.  -5.269282, 


-4.566198, 

-5.104390, 


-4.963052. 

-5.100979, 


4.872668. 

-5.450016, 


-4.880975, 

•5.190460, 


c  <1  DATA  T10EXT(I2)  RH«85U,  LoglO  of  extinction,  Gerber  growth,  bl  aerosol  ) 


-2.881372, 

-4.234503, 

-4.732570, 

-4.728809, 

-5.122220, 

-4.572189, 

-4.733110, 


■3.006745, 

•4.538456, 

■5.105147, 

•5.058379, 

■5.108379, 

•4.491915, 

•4.836958, 


-3.054640, 

-4.709453, 

*5.157909, 

•5.157147, 

-5.146247, 

-4.493928, 

-4.947191, 


■3.323874, 

-4.868959, 

-5.262640, 

■5.191931, 

•5.046100, 

■4.531003, 

■4.973058, 


■3.487249, 

■4.779787, 

•5.348955, 

■5.166802, 

■4.941043, 

■4.557207, 


-3.847192, 

-3.914959, 

-4.621638, 

-5.130182, 

•4.795771, 

-4.613376, 


c  <1  DATA  T10EXT(I3)RH»95X,  LoglO  of  extinction,  Gerber  growth,  bl  aerosol) 

S  -2.544668,  -2.624227,  -2.659536,  -2.876508,  -3.015995,  -3.334879, 

*  -3.690242,  -3.978232,  -4.147185,  -4.327570,  -4.319030,  -3.445402, 

*  -4.174977,  -4.519074,  -4.627327,  -4.745790,  -4.865855,  -4.164842, 

8  -4.261830,  -4.592218,  -4.720538.  -4.756763,  -4.753329,  -4.739547, 

S  -4.733251,  -4.724435,  -4.711348,  -4.594978,  -4.482949,  -4.334081, 

l  -4.108630,  -4.027663,  -4.030286,  -4.066204,  -4.095696,  -4.153403, 

*  -4.275462,  -4.384523,  -4.502891,  -4.542451, 

c  {I  DATA  T10EXT( I4)RH»99X,  LoglO  of  extinction,  Gerber  growth,  bl  aerosol) 

8  -1.936329,  -1.941536,  -1.953817,  -2.066715,  -2.156580,  -2.387460, 

t  -2.670094,  -2.914032,  -3.061941,  -3.242225,  -3.365956,  -2.588397, 
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$  -3.105357,  *3.379822, 
8  -3.361900,  -3.659516, 

*  -3.893537,  -3.891807, 
8  -3.272239,  -3.187722, 

*  -3.635535,  -3.547922, 


-3.564331,  -3.689817, 
-3.809977,  -3.866429, 
-3.867997,  -3.754512, 
-3.190333,  -3.224186, 
-3.671294,  -3.719149/ 


-3.838812,  -3.299625, 
-3.880711,  -3.891503, 
-3.643898,  -3.496727, 
*3.254387,  -3.312034, 


c  <1  DATA  T2QEXT ( t 1 )RH»50X,  LoglO  of  extinction, 
c  Garber  growth,  teasel!  aerosol) 


data  «T2( l , J), j“1,40),l»1,4) 

1/-0. 562154,  -0.541000,  -0.535838,  -0.501248,  -0.491578,  -0.505651, 

*  -0.577361,  -0.670094,  -0.734522,  -0.820333,  -0.961658,  -0.705446, 

*  -0.812254,  -0.923323,  -1.065244,  -1.160931,  -1.299625,  -1.253249, 

8  -1.139141,  -1.317539,  -1.461942,  -1.560225,  -1.576820,  -1.530075, 

*  -1.541997,  -1.583959,  -1.709209,  -1.740167,  -1.716066,  -1.641780, 

*  -1.484418,  -1.389148,  -1.387269,  -1.383766,  -1.393447,  -1.432997, 

*  -1.532836,  -1.628341,  -1.716654,  -1.611100, 


c  Cl  DATA  T20EXT(12)RH*85X,  LoglO  of  extinction, 
c  Gerber  growth,  setsalt  aerosol) 

$  -0.180746.  -0.168194,  -0.161548,  -0.128083,  -0.113876,  -0.104589, 
$  -0.144638,  -0.210292,  -0.262092,  -0.342170,  -0.500313,  -0.252596, 
J  -0.294436,  -0.391774,  -0.529266,  -0.609083,  -0.728925,  -0.692590, 

*  -0.601609,  -0.734522,  -0.864073,  -0.959081,  -0.989022,  -1.002815, 
$  -1.027173,  -1.058598,  -1.161529,  -1.179575,  -1.144021,  -1.058086, 
$  -0.883027,  -0.777310,  -0.776011,  -0.780520,  -0.793147,  -0.829592, 

*  -0.930369,  -1.032326,  -1.147892,  -1.1S6823, 


c  {I  0ATA  T20EXT ( I3)RH*95X,  LoglO  of  extinction, 
c  Gerber  growth,  teasalt  aerosol) 

*  0.233022,  0.248537,  0.255490,  0.280738.  0.296358,  0.322323, 
8  0.317186,  0.283776,  0.250883,  0.190528,  0.043991,  0.227064, 
8  0.240150,  0.171375,  0.056714,  -0.005753,  -0.104445,  -0.107049, 
8  -0.019760,  -0.111894,  -0.222269,  -0.309795,  -0.343471,  -0.385008, 
8  -0.416325.  -0.443107,  -0.543619,  -0.572969,  -0.545765,  -0.468100, 
8  -0.299288,  -0.187568,  -0.185732,  -0.186699,  -0.196543,  -0.225060, 
8  -0.314688,  -0.409771,  -0.528987,  -0.599376, 


c  <1  DATA  T20EXT(14)RH«99X,  LoglO  of  extinction, 
c  Gerber  growth,  testa  It  aerosol) 


8  0.904948,  0.913119, 

8  0.992841,  1.000130, 

*  0.999687,  0.976859 

8  0.844197,  0.802733 

8  0.550094,  0.527088 

8  0.561781,  0.673620 
8  0.605316,  0.533340 


0.915880,  0.932692, 
0.994599,  0.971842, 
0.913114,  0.878096, 
0.727281,  0.659441, 
0.425844,  0.369142, 
0.676547,  0.685052, 
0.431814,  0.329011/ 


0.942722,  0.970068, 
0.877343,  0.944527, 
0.815438,  0.763023 
0.629980,  0.582097 
0.370661,  0.420764 
0.682037,  0.068041 


c  (I  0ATA  T3QEXT(11)RH=50X,  LoglO  of  extinction, 
c  Gerber  growth,  seasalt  aerosol) 


data  (CT3(i,j), j»1,40), 
8  /2. 145352,  2.149712, 
8  2.182300,  2.198024, 
8  2.224429,  2.235932, 

8  2.245858,  2.249565, 

8  2.233301,  2.223522, 
8  2.057780  ,  2.112337, 

8  2.157910,  2.133092, 


i-1,4) 

2.150081,  2.157819, 
2.206151,  2.215479, 
2.247089,  2.252125, 
2.240799,  2.223184, 
2.183327,  2.135769, 
2.118033,  2.145880, 
2.09t  >66,  2.071551, 


2.160943,  2.172369, 
2.220396,  2.200577, 
2.251881,  2.216931, 
2.219349,  2.233529, 
2.100405,  2.072581, 
2.169792,  2.173914, 
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C  <1  DATA  TJfltXT C 1 2 3RH*85X ,  LoglO  of  extinction, 
c  Gerber  growth,  seasalt  aerosol) 

*  2. 50802,  2.550559,  2.55U50,  2.557002,  2.556303,  2.568483, 

S  2.57990,  2.588787,  2.594227,  2.602700,  2.609861,  2.589771, 

*  2.609658,  2.619740,  2.633256,  2.640750,  2.646168,  2.612625, 

»  2.634054,  2.645353,  2.645560,  2.638469,  2.635293,  2.634195, 

$  2.630916,  2.624179,  2.587251,  2.536697,  2.499550,  2.473487, 

»  2.492271,  2.5S5602,  2.559392,  2.579292,  2.591443,  2.598692, 

*  2.594271,  2.583119,  2.557543,  2.511563, 


c  (I  OATA  T30EXT ( I3)RH*95%,  LoglO  of  excretion, 
c  Gerber  growth,  aeasalt  aerosol) 

S  2.979771,  2.983924,  2.984100,  2.989356,  2.994920,  2.998338, 

S  3.007748,  3.013217,  3.017576,  3.023294,  3.029384,  3.015066, 

»  3.02B815,  3.036349,  3.047586,  3.055225,  3.063446,  3.040523, 

$  3.053309,  3.065131,  3.071330,  3.072728,  3.072287,  3.070297, 

S  3.067777,  3.W64308,  3.039097,  2.995561,  2.960823,  2.935981, 

$  2.958272,  3.012584,  3.015444,  3.031166,  3.039136,  3.047314, 

$  3.050457  ,  3.049412  ,  3.037825  ,  2.997041, 


c  {I  DATA  T3QEXT(U)SH«99X,  LoglO  of  extinction, 

C  Gerber  growth,  seasalt  aerosol) 

*  3.653473,  3.655388,  3.6S6424,  3.659012,  3.659869,  3.665281, 

*  3.669586,  3.675283,  3.677698,  3.681341,  3.683875,  3.678327, 

*  3.686136,  3.690311,  3.696671,  3.701421,  3.707579,  3.699161, 

S  3.704202,  3.711293,  3.718369,  3.724243,  3.726311,  3.728670, 

t  3.729554,  3.729634,  3.723218,  3.698631,  3.672587,  3.649345, 

S  3.660752,  3.697160,  3.699092,  3.710320,  3.715769,  3.723061, 

*  3.731008.  3.738011.  3.741238.  3.723513/ 


c  {  Data  EOAbeb  this  is  loglO  of  absorption  for  dust,  no  growth) 
data  (E0(i),i«1,40) 

$/*3. 405276,  -4.212023,  -4.264226,  -4.504553,  -4.631230,  -4.87988, 

%  -5.120961,  -5.270301,  -5.277629,  -5.327127,  -5.204384,  -5.286820, 

*  -5.319538,  -5.441112,  -5.421143,  -5.410464,  -5.330776,  -5.112107, 

*  -5.102203.  -5.089360,  -5.077518,  -5.200322,  -4.946115,  -4.905005, 

$  -4.864899,  -4.851829,  -4.867324,  -4.981424,  -5.056550,  -5.088320, 

$  -5.146417,  -5.195315,  -5.201301,  -5.250844,  -5.281980,  -5.238621, 

%  -4.980219,  -5.188432,  -4.969724,  -5.060256/ 

c  0  DATA  T1GABSU1)  RH*50X,  LoglO  of  absorption,  Gerber  growth,  bl  aerosol) 

data  KEUi.j).  j«1,40),i»1.4> 

S/- 7.542300,  -7.634400,  -7.645008,  -7.628563,  -7.566887,  -7.281856, 

$  -6.784944,  -6.176741,  -6.103452,  -5.7865B9,  -5.203967,  -4.332482, 

S  -5.421498,  -6.048211,  -5.737596.  -5.773142,  -5.740526,  -4.979722, 

*  -5.099890,  -5.417403,  -5.439400,  -5.481710,  -5.405530,  -5.335857, 

*  -5.333229,  -5.312980,  -5.454742,  -5.399049,  -5.315550,  -5.182573, 

»  -4.964210.  -4.881868,  -4.881669,  -4.920023,  -4.935954,  -4.987796, 

%  -5.101571,  -5.19086$,  -5.278808,  -5.269371, 

C  (!  DATA  T13ABS( 12)  RH*85X,  LoglO  of  absorption,  Gerber  growth,  bl  aerosol) 

*  -7.651715,  -7.765837,  -7.777154,  -7.757384,  -7.692205,  -7.348693, 

%■  -6.733463,  -5 .960842,  -6.103909,  -5.697431,  -4.946577,  -3.960784, 

*  -5.092422,  -5.829035,  -5.406636,  -5.472576,  -5.500547,  -4.637555, 

*  -4.757856,  -5.106860,  -5.192891,  -5.218668,  -5.1B6319,  -5.146034, 

*  -5.137124,  -5 .121685 ,  -5.154455,  -5.050210,  -4.943438,  -4.797158, 

t  -4.573U  7,  -4.492914,  -4.494904,  -4.531993,  -4.558164,  -4.614269, 

S  -4,733815,  -4,837465,  -4.947537,  -4.973181, 
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c  Cl  DATA  T1QA8S03)  RH*95X,  LojIO  of  absorption,  Gerber  growth,  bl  aerosol) 


$  -7.607250,  -7.769091,  -7.781123,  -7.757856,  -7.686j34, 

$  -6.437814,  -5.580540,  -5.868285,  -5.372983,  -4.S29090, 

*  -4.633166,  -5.418893,  -4.953739,  -5.032096,  -5.087661, 

$  -4.305105,  -4.665164,  -4.778899,  -4.798521,  -4.786695, 

$  -4.755377,  -4.743884,  -4.721887,  -4.599911,  -4.485798, 

*-4.110133,  -/ .029384,  -4.032008,  -4.067917,  -4.097372, 

»  -4.276717,  -4.385440,  -4.503472,  -4.542663, 

c  <1  DAY*  T1QABS(14)RH«99%,  LoglO  of  absorption,  Gerber  growth 

%  -7.263078,  -7.589290,  -7.619734,  -7.595252,  -7.499311, 

t  -5.663140,  -4,738333,  -5.147172,  -4.58254S,  -3.698927, 

*  -3.757161,  -4.569554,  -4.094820,  -4.181167,  -4.253755, 

*  -3.457411,  -3.820333,  -3.949698,  -3.969117,  -3.968147, 

*  -3.949698,  -3.941119,  -3.893877,  -3.766420,  -3.650859, 

*  -3.276528,  -3.192946,  -3.195581,  -3.229487,  -3.259653, 

*  -3.439770,  -3.551139,  -3.673439,  -3.719968/ 

c  <1  DATA  T2OABS(l1)RH*50X,  LoflIO  of  absorption, 
c  Gerber  growth,  Seesalt  aerosol) 


data  <(E2(i,J),j*1,40),i»1,4) 

*/-3. 196659,  -4.978563,  -5.772113,  -7.459721,  -6.504608, 

*  -3.199916,  -2.724781,  -2.629680,  -2.455374,  -1.814656, 

*  -1.860373,  -2.607778,  -2.200653,  -2.274244,  -2.344228, 

*  -1.576574,  -1.950472,  -2.075421,  -2.074688,  -2.048085, 

*  -2.014354,  -2.023563,  -2.043279,  -1.950007,  -1.855831, 

*  -1.532377,  -1.437279,  -1.436590,  -1.438600,  -1.457922, 

*  -1.593187,  -1.678775,  -1.753723,  -1.626059, 

c  Cl  0ATA  T2QA8SC I 2)RH»8SX,  loglO  of  absorption, 
c  Gerber  growth,  Seasalt  aerosol) 

*  -3.090813,  -4.921326,  -5.659953,  -7.151398,  -6.136635, 

t  -2.910519,  -2.199978,  -2.478993,  -2.006392,  -1.258462, 

t  -1.244034,  -2.011383,  -1.576197,  -1.657795,  -1.738690, 

%  -0.996712,  -1.328892,  -1.460297,  -1.479530,  -1.474398, 

S  -1.459170,  -1.460573,  -1.445584,  -1.345708,  -1.250503, 

*  -0.933898,  -0.837555,  -0.837256,  -0.847161,  -0.865345, 

*  -1.003589,  -1.098591,  -1.202255,  -1.182441, 

c  Cl  OATA  T 20ABS ( 1 3 ) R  H»95% ,  LoglO  of  absorption, 
c  Gerber  growth,  Seasslt  aerosol) 

*  -2.989658,  -4.785633,  -5.401100,  -6.710545, 

*  -2.467437,  -1.622366,  -1.994262,  -1.461992, 

8  -0.647991,  -1.401472,  -0.963810,  -1.044389, 

*  -0.421361,  -0.720881,  -0.849182,  -0.874194, 

*  -0.871278,  -0.870117,  -0.846582,  -0.751144, 

S  -0.367280,  -0.270179,  -0.269347,  -0.276257, 

S  -0.413154,  -0.503140,  -0.611171,  -0.644089, 


-5.642313, 

-0.686723, 

-1.126697, 

-0.876606, 

•0.661623, 

-0.290467, 


c  C!  DATA  T20ABSI I4)RH»99X,  LoglO  of  absorption, 
c  Gerber  growth,  Seasalt  aerosol) 


*  -2.638763,  -4.393844, 

*  -1.658763,  -0.721544, 

*  0.223028,  -0.480172, 

*  0.425714,  0.176439, 

t  0.029587,  0.031368, 

*  0.456032,  0.547947, 

*  0.457942,  0.387817, 


-4.905599,  -5.768658, 
-1.135655,  -0.573879, 
•0.054477,  -0.128106, 
0.060622,  0.035630, 
0.053463,  0.135260, 
0 .549714 ,  0.551206, 
0.294576,  0.240225/ 


-4.775933, 

0.177854, 

-0.205909, 

0.030478, 

0.211094, 

0.543956, 


7.212044, 

3.507044, 

4.187321, 

4.765103, 

4.335828, 

4.155001, 


bl  aerosol) 

6.627106, 

2.691500, 

3.349294, 

3.958370, 

3.501207, 

3.317187, 


3.589729, 

0.994305, 

1.541438, 

2.005947, 

1.729717, 

1.499242, 


3.431118, 

0.508386, 

0.953778, 

1.458321, 

1.125628, 

0.9C5145, 


-3.204621, 

-0.032705, 

-0.385177, 

-0.872215, 

-0.545299, 

-0.323636, 


•2.611970, 

0.668563, 

0.446941, 

0.028775, 

0.J07988, 

0.523720, 
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c  (I  DATA  T3GABS(I1)RM=50X,  LoglO  of  absorption, 
c  Gerber  growth,  Seasalt  aerosol) 

data  <(E3(i,J>.j«1.40),l*1,4) 

%/  0.362765,  -1.481091,  -2.168143,  -3.S66S25,  -2.868061,  0.013596, 

S  0.426039,  0.894322,  0.823031,  1.164353,  1.646051,  1.894338, 

*  1.616497,  1.063108,  1.421801,  1.377397,  1.331042,  1.821546, 

*  1.823474,  1.632569,  1.557640,  1.558252,  1.579486,  1.622784, 

*  1.621374,  1.612498,  1.591376,  1.638419,  1.684585,  1.743620, 

%  1.822273,  1.881755,  1.885333,  1.9O4071,  1.914703,  1.913077, 

*  1.892696,  1.869654,  1.842990,  1.894576, 

c  {I  DATA  T3QABSC I2)RH«B5X,  LoglO  of  absorption, 
c  Garber  growth,  Saaaalt  aerosol) 

*  0.497096,  -1.340274,  -2.058066,  -3.553587,  -2.501593,  0.187887, 

*  0.717704,  1.407951,  1.163519,  1.601484,  2.127623,  2.281647, 

*  2.121494.  1 .612540,  1.967225,  1.922845,  1.874563,  2.270143, 

*  2.268859,  2.142984,  2.079362,  2.070924,  2.076240,  2.090223, 

*  2.091280,  2.089658,  2.091421,  2.132932,  2.169145,  2.211921, 

t  2.270306,  2.320541,  2.323108,  2.336380,  2.342561.  2.345060, 

*  2.336099.  2.323046,  2.299551,  2.306961, 

c  <1  DATA  T3QA8$(I3)RM»95X,  LoglO  of  absorption, 
c  Gerber  growth,  Seasalt  aerosol) 

t  0.646286,  -1.165198,  -1.774200,  -3.101939,  -2.022990,  0.410760, 

*  1.159116,  1.955976.  1.630275,  2.117603,  2.612318,  2.699664, 

*  2.606790,  2.162116,  2.488635.  2.451280,  2.409324,  2.719107, 

*  2.717912  ,  2.634991,  2.586700  ,  2.579429  ,  2.58045,',  2.585145, 

*  2.586644  ,  2.587172  ,  2.594426  ,  2.626453  ,  2.652140.  2.681  .A  . 

*  2.719248,  2.758473,  2.760566,  2.772256,  2.777652,  2.781',, 

*  2.783925,  2.781202,  2.768912,  2.765445, 

C  <1  DATA  T3QABS([4)RH«99X,  LoglO  of  absorption, 
c  Gerber  growth,  Seasalt  aerosol) 

t  0.870942,  -0.775389,  -1.289282,  -2.281415,  -1.181517,  0.960680, 

S  1.930231,  2.783968,  2.430543,  2.920468,  3.328420,  3.352491, 

*  3.317374,  2.975119,  3.246055,  3.219191,  3.189378,  3.390246, 

l  3.388190,  3.349355,  3.322798,  3.320416,  3.321080,  3.323809, 

*  3.32*>782  ,  3.327257  ,  3.335217  ,  3.354205  ,  3.366684  ,  3.377834, 

*  3.392662,  3.415608,  3.417106,  3.426446,  3.431316,  3.438210, 

S  3.447855,  3.455637,  3.458985,  3.462727/ 


c  (*»•*  wavelengths  of  these  calculations  in  micro  meters  ••*•**•*) 
data  L 


/  0.2, 

0.3, 

0.3371, 

0.55, 

0.6943 

1.06, 

1.536, 

2-0, 

2.25, 

2-5, 

2.7, 

3.0, 

3.3923, 

3.75, 

4.5, 

5.0, 

5.5, 

6.0, 

6.2, 

6.5, 

7.2, 

7.9, 

8.2, 

8.7, 

9.0, 

S  9.2,  10.0,  10.591,  11.0,  11.5, 

$  12.5,  14.8,  15.0,  16.4,  17.2, 

S  18.5,  21.3,  25.0,  30.0,  40.0  / 

c  <••»*  Relative  tumidity  of  the  calculations  •••••••*•) 

data  R  /50,  85,  95,  99/ 
end 
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SUBROUTINE  Swell (  mmode  ,  f,  rh,  AMPVal) 

0  {c«iiaiiiimticisiBicmac:8sssctteesft:ez»BB«E:s5s:::E:3issec»a:ess) 

e  {  Purpose:  To  calculate  the  growth  of  hygroscopic  aerosol  wrt  60X  ) 

c  {  Called  by:  Oepovel  ) 

c  {  Calls  Out:  ;  toy  ) 

c  (  Revision  History:  > 

c  C- 
{ 

{- 
{ 

{ 

{ 

< 

( 

{ 

C 
C 
{ 

c« 

(• 


Date 


Programmer 
J.  Fitzgerald 

S.  Cat Keen 
H.  Gerber 

S.  Gathmen 
Charles  McGrath 
Linda  Hitney 
S.  Gathmen 


Remarks 


1978. 

1983 

1986 

Jun  1989 
02  Oct  1991 
Nov  1992 
Sep  1993 


Original  concepts  reported  in 
the  literature,  Fitzgerald  1978) 
Fitzgerald's  formulation  in  NAM 
Expended  Humidity  Parameters  for 
NAM,  Gerber (1985) 

Used  Gerber's  formula  in  NOV  AM 
Comments  added 

Converted  from  PASCAL  to  FORTRAN 
Integreted  into  NOVAMSR 


{Gerber's  formula) 

select  case  (maode) 

case  (2) 


c7 
e8 
case 

c7 
c8 
case 
if 

C7 

c8 

else 

c7 
c8 
endi  f 
end  select 


-  1.83 
■  5.13 
<3) 


.97 

.83 


■  1 
•  5 

(1) 

(AMPVal  . 
1.28 
2.41 

1.17 
1.87 


I  (case) 


GT.  5.0)  then 


a  «  c7  -  rh/100.0 
b  ■  c8*(1.0-rh/100.0) 

f  ■  a/b 
b  -  1. 0/3.0 
f  •  xtoy(f,  b) 
end  I  {Swell) 


SUBROUTINE  suf inCSOOate,  SurfObsF i lehaae) 
c  (••■•■BMMiaiuUMiaiait<HasaiuHiiMimwn»aiu>aaugnauiniunt) 

c  {  Purpose:  Read  surface  observation  file  l  assign  to  SOOata  or  i-  ) 

c  (  dummy  value  read  from  surface  obs  file,  then  assigi  default  ) 

c  <  Preconditions:  SurfaceObsFi  leNeme  exists  t  is  in  proper  format  ) 

c  {  Global  Variables:  none  ) 

c  {  Celled  by:  NOVAMS?  ) 

c  { . ) 

C  {  01  Jan  1991  Stu  Gathman  modified  ) 

c  (  27  Sep  1991  Charles  McGrath  Comments  added  ) 

c  {  Nov  1992  Linda  Hitney  converted  from  PASCAL  to  FORTRAN  ) 

c  <  Sep  1993  S.  Gathman  integrated  into  NOVAMSR  ) 

C  (>aa...aa.aaaa.a.a.a..a......a....aa....aa.a..a..a..aa.a..a..a<r..a>..»c<) 

C  ( . ) 

I  This  program  is  used  to  input  ail  of  the  surface  observations  and  to  ) 

t  substitute  the  default  values  when  the  value  of  -99  for  temperature  ) 

I  or  -1  for  other  aurfsce  observations  is  found  in  ) 

I  the  surface  observation  file  at  a  particular  location.  ) 

I  ) 

I  A.  Surface  Observation  file  '9  parameters,  use  "-1"  if  the  parameter  ) 

1  is  not  measured,  or  if  temperature,  use  -99  if  not  measured)  ) 

I  1.  Tsea  ■  Se»  surface  temperature  (C)  ) 

I  2.  T10  «  Air  temperature  (C)  S  10  meters  ) 

I  3.  Rh  *  Relative  Hunidity  (X)  filO  meters;  used  to  ) 

I  calulate:  Op  *  Mixing  ratio  (g/kg)  810  meters  ) 
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4.  Svis  *  Optical  Visibility  {kilometers)  ) 

5.  U10  =  Current  reel  wind  speed  (m/s)  810  meters  > 

6.  Have  *  Averaged  wind  speed  C24hr)  (m/s)  ) 

7.  Amp  «  Air  Hats  Parameter  (1..10)  ) 

(note:  sap  &  svis  are  inputs  to  the  NAAWS  model  ) 

to  get  new  amp.)  ) 

B.  lrext  *  Surface  Ifl  Ext.  (1/km)  (810.6  microns)  ) 

9.  1  ■  Zonal  category  (1..6)  > 

. - . ) 

c  <  Default  aurface  Het.  data  is:  ) 

c  <  Tropical  is  square  #49,  ) 

c  <  midlatitude  is  ship  station  #e,  ) 

c  (  sit  artic  is  ship  station  #i  .  ) 

c  (  Winter  is  January  and  Sumer  is  July.  ) 

c  <  Data  froei  U.S.  Navy  Marine  Climatic  Atlas  of  the  World  ) 

c  <  (revised)  Vol  1,  North  Atlantic  Ocean,  by  J.M.  Meserve  (1974).  ) 

c  . > 


reel  dtsee<t>>  /2b. 5,  26.5,  24.8,  19  12.2.  9.2/ 
raal  dwind(6)  /5.47,  4.16,  5.26,  10.58,  8.05,  12.47/ 
charecter*12  SurfObeF i leName 
include  'sodata.inc' 
real  eurfops(9) 

raal  a/  -4.05801664  / 
reel  b/  -C. 00890166  / 
real  c/  0.038432675  / 
real  d /  -0.64465936  / 

real  e/  -0.00899986  / 
real  g/  0.007232437  / 
real  1/  2.019394568  / 

real  m/  -0.C090O42O  / 

real  n /  -0.016770367  / 
real  pi/  3.14159265  / 

I  initialise  mixing  ratio  to  flagged  value  - ) 

Stoats. OP  «  -99. C 

l  (-•■  Read  in  surface  observation  fila  to  list  surfopsO  -*•-) 
op*n(unit*35,fi  le»Surf0bafi leMame.statusx'old' > 
read  (35,*)  surf ops 
close(35) 

c  { -  SOOata.  Zone  index  becomes  nov  the  index  of  zonal  catagory  ----> 

c  ( -  checking  the  range  of  SCData. Zonal ndex  for  validity  - ) 

SOOatfc.Zonelndcx  ■  int(aurfoos(9)) 

if  ((SOOata.2onelndcx  .11.  D.OR.l&COats.Zonelndex  .07.  6))  then 
SODaca.Zonelrdex  =  3 
END  if 

e  { .  filling  in  the  default  values  if  necessary  . ) 

c  (SEA  SURFACE  TEMPERATURE  acceptable  range  of  -5  to  v35  deg  C  ) 

if  ((surfops(l)  .IT.  -5.0)  .OR.  (surfopsO)  .GT.  35.0))  then 
SOCiatfi.TSea  »  dtseaCSOOata.Zoneliviex) 

else 

SOOata.TSea  *  surfops(l) 
endif 

c  (AIR  TEMPERATURE  (C)  acceptable  range  of  -50  to  *40  deg  C  } 

if  UsurfopslZ)  .1.7 .  -50.0)  .OR.  (surfops(2)  .GT.  40.0))  then 
Ic  (  set  flag  to  check  radiosonde  data  for  a  usable  temperature  ) 
SCOBte.TIO  -  -99.0 
SOOata.IIOHees  *  .false, 
else 

SOOeta.TIO  e  surfops(2) 

SXota  .TIOMeas  *  .true, 
endif 

c  (RELATIVE  HU12D17Y  acceptable  range  of  0  to  100  percent  ) 
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if  ((surfaps(3)  .LT.  0.0)  .Oft.  (surfopsCJ)  .GT. 100.0))  then 
SOOata.RHH  *  -99.0  I  (flagged  for  radiosonde  calculation  in  ) 
SOOata.RHHMeas  «  .false.  I  (AssignRSondevars  procedure  in  this  unit} 
else  I  <  sgg  fix  11/26/90  } 

SOOata.RHH  b  surfops(3)  I  (Use  this  RH  value  directly} 
SOOata.RHHMeas  *  .true, 
if  (SQOate.TIOMeas)  then 
vpO  •  vappr(SOOata.TIO) 
vpO  •  vpO  *  surfops(3)  /  100.0 
SOOata.Qp  «  623.0  *  vpO  /  (1013.0  -  vpO) 
end  if 
end  If 

c  (CURRENT  UIMO  SPEED  (H/S)  acceptable  range  of  0  to  40  m/s) 

if  ((surfops(5)  .LT .  0.0)  .Oft.  (surfops(5)  .CT.  40.0))  then 
I  (  default  values:  5.47,  4.16,  5.26,  10. 58,  6.05,  12.47  m/s  } 
SOOata.UlO  *  dwind(SOOata.2one!ndex) 

SQOata.UlONess  ■  .false, 

else 

SOOata.UlO  *  surfops(S) 

SOOata.UlONeas  ■  .true, 
endif 

c  (AVERAGE  WIND  SPEED  (H/S)  acceptable  range  of  0  to  40  m/s) 

if  ((surfops(6)  .LT.  0.0)  .Oft.  (surfops(6)  .GT.  40. 0),  then 
SOOata.UAve  *  SOOata.UlO 
else 

SOOata.UAve  *  surfops(6) 
endif 

c  (OPTICAL  VISIBILITY  (KM)) 

if  (surfops(4)  .LE.  0.5)  then 
Ofac  *  Qfae  •  2.0 
SOOata.SVis  «  10.0 
SOOata.SVisMeas  ■  .false, 
else 

SOOata.SVis  *  surfops(4) 

SOOata.SVisMeas  ■  .true, 
endif 

if  (aurfops(4)  .GT,  500.0)  then 
Ofac  »  Ofac  -  2.0 
SOOata.SVis  »  500.0 
SOOata.SVisMeas  «  .false, 
else 

SOOata.SVis  x  surfops(4) 

SOOata.SVisMeas  *  .true, 
endif 

c  (AIR  NASS  PARAMETER  acceptable  range  of  1  to  50  } 

c  Tnis  is  a  technique  to  do  the  air  mass  parameter  logic 

c  and  the  aiethod  of  using  the  visibility  if  it  is  available 

c  to  detenair.*  the  air  mass  parameter. 

IF(SURFOPS(7)  .GT.  0.0)  GOTO  100 
I F(  .NOT.  SOData.UlOMeas  )  GOTO  200 
I F (  .KOI.  SOOata.SVisMeas)  GOTO  200 

c  determine  the  *.m.p.  from  the  visibility  and  wind  data 

f  *  ((2- JuC'ata.RHH/100)/(6*(1-So0ata.RHH/100) ))**(1/3) 

be\fcvisO*(3.912/SOOatt.SVis)-O.OH62 

«  (e+c*»Data.RHH)/(1*b*S00ata.RHH) 
t2  «  (d+g*SOOata.RHH)/'He*SOOsta.RHK) 
t3  «  ( l' n*S00ata.RHH)/( 1*m*  SOOata.RHH) 

beta2*pi'*FN8(S00ata.Uave)*t2  /  (1000  *  f) 
beia3  :pi*FHC( SOOata.UlO )*t3  /  (1000  *  f) 
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if(betevisO  .le.  (20.0  *T1  ♦beta2+beta3) )  then 
amp  *  0.1 

else 

a*t>  «  S9RT((b«tevisO-(bet.,2*beta3)>/(2*pi*t1/f)) 

end  if 

SOOata.Anp  =  amp 
goto  500 

100  SOOata.Aap  ■  aurfops(7) 

GOTO  500 

200  SOOata.Anp  ■  2.0 
500  continue 

c  (SURFACE  IR  EXTINCTION) 

if  ((surfops(8)  .IT.  0.001)  .OR.  (surfops(8)  .GT.  100.0))  then 
Qfac  «  Ofac  *  2.0 
SOOata. IRExt  ■  -1.0 
SODate. IRExtMeas  »  .false, 
else 

SOOatt. IRExt  «  surfops(8) 

SOOata. IRExtMeas  *  .true, 
endif 

end  I  (  aufin  ) 


SUBROUTINE  CheckRSondeOata(RdataAry) 

(■■■ISBBSaBRaailBSESISIBSaiatBIRIIS«lt::iBIXtt(RIBISCCIC3 

<  Purpose:  Check  range  of  potential  temp  l  nixing  ratio 

( . 


titamisttassitcgis} 

> 

. > 

> 

converted  from  PASCAL  to  FORTRAN  ) 

Integrated  into  NOVANSR  > 

aaaaasaanaiBuiataaataasszssssascsstsss) 


c  (  01  Oct  1992 

Stu  Gathman 

c  <  Nov  1992 

Linda  Hitney 

c  (  Sep  1993 

C  {SBBUBBSnBBIII 

S.  Gathman 

real  alt,  pt,  nr,  rh,  airt,  pres 
real  RdataAry  (200,3) 

I  begin  (  CheckRSondeOata  ) 
do  I«8  ,  Int(RdataAry(1,1)) 
i f (( i .GT .6)  .and. 

S  ((RdateAry(i ,2) .GT .50.0) ,or.(RdataAry( i ,2).LT .*30.0)))  then 
RdataAry( i , 1 )*RdataAry( i *  1 , 1 ) 

RdataAry(i ,2)=RdateAry(i-1,2) 

RdataAryC i ,3)*RdataAry( i • 1 ,3) 
endif 

alt«RdataAry(i,l) 
pt  »RdataAry(i,2) 

•r  «RdataAry(i,3) 

call  calc_rh_ateep_pres8  (  alt,  pt,  nr,  rh,  airt,  pres  ) 
if  (rh  .GT.  99.0)  then 

call  Convert_Rdata  (  pres,  airt,  99.0,  alt,  pt,mr) 

RdataAryt i ,3)»«r 
endif 
enddo 

end  I  (  CheckRSondeOata  > 

SUBROUTINE  celc_rh_atemp_pre«(  alt,  pt,  nr  ,  rh,  airt,  pres  ) 


C  {iiaiaitiataaaiBiiaiaaiasaBKSCBisacsiasieissaKsesxESKScsssKBStttaassctssE) 

c  (  Purpose:  This  is  a  program  to  convert  the  altitude,  ) 

c  {  Potential  Temperature  end  nixing  ratio  date  into  the  ) 

c  (  pressure,  air  temperature  and  relative  hunidity  ) 

c  (  profile  data.  ) 

c  ( . ) 

c  <  01  Oct  1992  |  Gathman  t  McGrath  |  designed  program  for  NOVAM215  ) 

) 

e  (  Nov  1992  I  Linda  Hitney  I  converted  from  PASCAL  to  FORTRAN  )  > 

c  (  Sep  199.1  I  S.  Gathman  |  Integrated  into  N0VAMSR  )  > 


C  {iiiicctBaataCk  BtBiscaatxsaECttBEisiBEiiiBsitSBtsBSEtesteiatctscetssssEB::) 
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real  elt.pt.mr 
real  rh.eirt.pres 

if  (ett.l* .500.0)  then 

pres«1013.0-55.0*alt/500.0 

* 1 pr es-1 021 . 38*  expt - 0 . 000 1 2739*  alt) 
end  if 

ai  rt»(pt+273. 15 )/exp(0. 286* l«fl< 1000. 0/pres)) -273. 15 

satvp*  vappr(airt) 

aatiar«62Q .0**atvp/ (pre* -  aetvp) 

rh«1 00 . O'mr/satw 

end  I  calc_rh_ate*p_press 


t5SCC6StS«tSSESSSs3t-«) 


SUBROUTINE  Convert_Rdata  {prea.Bt.rh.  alt,  PM£> 


< 

< 

{-• 

< 

< 


airtemp  and  rh  data  arxl  gives  back  alt.  patantt 
and  mixing  ratio  at  that  level. 


Sep  1992  |  S.Gathman 


— > 


Nov  1992 
Sep  1993 


Linda  Hitney 
S.Gathman 


|  designed  program  for  NOVAM215 

converted  from  PASCAL  to  FORTRAN  ) 
integrated  into  NOVAMSR  > 


real  alt,  pt,  nr.  rh,  at,  pres 

if  (pres.GT. 958.0)  then  le  <aee  formil.  .5,f5  and  95  in  Opro  prog2.«q1) 

altaf 1013. 0-prea)*500. 0/55.0 

*lIlt-log(prea/1021 .38)/0. 00012739 
ondlf 


pt«(at«-273. 15  )*xtoy(  1000. 0/pres,  0.286)  -273.15 

*r«rh*620.0*vappr(at>/(100.0*(pre»-vappr(at)» 


END  !Convert_Rdata 


) 

i 


■iiiiiiiisik**'”1 


SUBROUTINE  NAICE_R0  AT AART (preset l * , rdataary)^^ 

|  designed  program  for  NOVAMSR 
I  Integrated  into  NOVAMSR 


Sep  1992  l  S.Gathman 


.«»«> 

) 
-> 
> 


C  Sep  199.1  |  S.Gathman 


«**»*»***Ea***r*** 


ijaas*«t**c«t*s 


ssscxssssstss) 


real  prea(i*»le(5,3),rd*taary{200,3) 


W  . 

rci^laaryC  i ,  1  )«preanble(  i ,  w 

rdataaryii  ,2)«prean*Jle(i,2> 

rdatiaryl  i  ,3)epreairble(  i  ,3) 

enddo 

if  ( lot (RdataAryl 1,1))  .0T.  200)  stop 
'acre  than  200  records  in  rsonde 

openaaii  t«13,f  i  le=*sigf  i  le1  ,status.>old«  > 

read(13,*)  j 
do  1  ■  1  ,  i 

Read(13.*)  a.b.c 
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c  a  it  pressure,  b  is  air  temperature,  and  c  is  relative  humidity, 

c  Me  wist  translate  these  back  to  the  MOV AM  values  of  altitude,  pt  and  mr. 

RdataAry(l+S,1)aaltitude(a> 

RdataAry(l»S,2)sPotential_temperature(a,b) 

RdeteAry(l*5,3)«rMixing_ratio(c,b,e) 

mooo 

closet.  1J) 

c  <  RdetaAry( 1 , 1 )  is  nurter  of  rows  in  the  radiosonde  matrix  ) 
c  (  note  that  RdatAry(1,  1)  is  five  more  than  nutter  actual  > 
c  (  radiosonde  observations,  unless  *  1,  then  no  rsond  data.  > 

end  I  (MAKE  RDATAARY) 


SUBROUTINE  AssignTlO_RHH_QP(  RSondlata,  SOOata) 

C  (Bt*«HietBcsmiB»a8timo«>mtB:iKctaM8>itBBt:ts:s::e:scss:KB:srccssc) 

c  <  Purpose:  checks  surface  temp,  ret  tumidity,  and  mixing  ratio  values  > 
c  (  in  surf  obs  file  for  being  measured,  uses  Rsonde  if  possible  > 


c  (  Called  by:  NOVAM21S .FOR  ) 
c  C  Calls  out:  (none)  ) 
c  {  Preconditions:  > 
C  <  Global  Variables:  ) 

c  < . > 

c  (  26  Feb  1992  Charles  McGrath  created  ) 
c  (  Nov  1992  Linda  Hitney  converted  from  PASCAL  to  FORTRAN  > 
c  (  Sep  1993  S.  Gathman  integrated  into  NOVAMSR  > 


C  (tfuiiRtiBiifaiMiexitaietNltliltiiaiHSMtitiiitnicuuaiiBliizsKHiKckies) 

real  RSondDeta  (200,3) 

real  dtIO  (6)  /26.3,  26.3,  24.2,  17.5,  9.5,  7.0/ 
include  ‘sodata.inc1 

Psfc  e  1013.01  (  surface  pressure  in  millibars  ) 

c  <  Surface  Air  Temperature  -•  if  flagged  as  not  already  measured,  then  if  ) 
c  (  radiosonde  date  exists  at  below  100  meter  altitude,  then  use  the  ) 

c  (  radiosonde  temperature,  otherwise  use  table  value  for  geographic  tone.  > 
if  (.NOT.  SOOata. TIOMeas)  then 
if  ((RSondDatad  ,1 )  .GT.  5.0). AND. 

$  (RSondDatad,  1 )  . LE.  100.0))  then 

SOOata. T10  «  RSondData(6,2)  I  c  (  assign  temp  at  lowest  height  ) 
else 

SOOata. T10  «  dtlO(SOOata.Zonelndex) 
endi  f 
endif 

c  (  Surface  Relative  Humidity  *-  if  flagged  as  not  measured  and  ) 
c  <  there  is  radiosonde  data  from  which  to  derive  humidity  data  > 
c  (  if  radiosonde  data  exists  at  an  altitude  below  100  meters  ) 
if  (.NOT.  SOOata. RHHKeas)  then 
if  ((RSoncDeta(1,1)  .GT.  5.0). AND. 

$  (RSondData(6,1)  .LE.  100.0))  then 

Ic  <  Re  l  Hun  *  ratio  of  measured  mixing  ratio  divided  by  saturation  ) 

(c  <  mixing  ratio.  Measured  mixing  ratio,  OP  in  g/kg  is  from  ) 

Ic  <  rsonde(1,3)  and  saturation  mixing  ratio  is  calculated  from) 
Ic  (  vapor  pressure  at  surface  temperature  RSonde(l,2)  value  ) 

Ic  (  The  saturation  mixing  ratio  formula  gives  results  in  g/g,  ) 

Ic  {  so  needs  to  be  multiplied  by  1000  for  g/kg  units  conversion) 

Ic  {  SatOP  *  .622*SurfVapPr/SurfAirPr-SurfVapPr  ) 

ic  {  RelHun  *  0P*(lSurfPr-VaporPr)/(0.622*VaporPr))/1000*100X  ) 

VP0  =  VspPr(RSoncCats(1,2)) 

SOOata. RMH  >=  RSon£fiata(1,3>*(Psfc-VP0)/C0.62Z*VP0)/1000. 0*100.0 
I  (  OP  set  to  mixing  ratio  in  radiosonde  mess  at  lowest  altitude  > 
SOOata. Op  =  RSonci)ate(1,3) 

else 

SOOata. RHH  x  60.0 

vpO  x  0.6  *  vappr(SOData.TIO)  Ic  (Vapor  Press  assunes  RH  of  BOX) 
SOOata. Op  *  623.0  *  vpO  /  (1000.0  •  vpO)  I  c  (sgg  fix  1/18/91) 
endif 
endif 

end  I  (  AssignT10_Ktinjih  ) 
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SUBROUTINE  AssignR$ondeVers(RSon®ata,  RSOata,  RSCalc,  SOOata) 

C  <««•■•»»■■■•■•■■«■■■••■>•■«■»■««»«■«■«■■*«■■«■■■••■«*■•»*«■«■■■»*«*«**»*«  =  } 

c  <  Purpose:  Assigns  radiosonde  parameters  from  array  to  RSOata  A  RSCalc  ) 
c  <  Called  by:  NOVAHSRO.FOR  > 

c  <  Global  Variables:  RSOata  A  RSCalc  > 

C  { . 


c  (  10  Oct  1991 
c  <  Nov  1992 
c  (  Sep  1993 


Charles  McGrath 
Unde  Hitney 
S.  Gathmen 


created  from  sufin  procedure  l  unovam) 
converted  from  PASCAL  to  FORTRAN  > 
integrated  into  NOVAMSR  ) 


C  'B8lttl»miM&t«S«c:ssiSlSCSStK8SlSS8tSIISUIkaiSSCfiIi:CCKK831IC8lSSSacS) 


RstIO  is  surface  potential  taap  from  radiosonde  ) 

Rs<£>  is  surface  mixing  ratio  from  radiosonde  > 

Zbase  A  Zb  are  height  of  base  of  cloud  layer  ) 

Tab  is  potential  teeperature  at  cloud  base  •  > 

Omb  is  mixing  ratio  at  cloud  base  -  > 

Tunits  should  be  1  if  potential  temperature  C.  ) 
Tbp  is  potential  teeperature  at  cloud  base  ♦  ) 

Qbp  is  mixing  ratio  at  cloud  base  ♦  > 

Zi  is  height  of  the  cloud  top  ) 

Thin  is  potential  temperature  at  cloud  top  -  ) 

Qim  is  mixing  ratio  at  cloud  top  -  > 

Ounits  should  be  1 

Tip  is  potential  teeperature  at  cloud  top  *  ) 

Clip  is  mixing  ratio  at  cloud  top  *  > 

. > 


> 


real  RSondData  (200,3) 
real  icpgkg.Psfc 

include  'rscalc.inc' 
include  'rsdata.inc' 
include  ‘sodata.inc1 


RSOata. RstIO 
RSOata. Rsqp 
RSOata. Zbase 
RSOata. Tbm 
RSOata. Qbm 
NSOala.  Tunits 
RSOata. Tbp 
RSOata. Qbp 
RSOata. Zi 
RSOata. Thim 
RSOata. Qim 
RSOata. Qunits 
RSOata. Tip 
RSOata. Qip 


RSond)ata{1 ,2) 
R$ond>ata(1,3) 
RSonc2)ata(2, 1 ) 
RSond>ata(2,2) 
RSond)ata(2,3) 
Rr:ncl'Bta(3,1) 
RSondData(3,2) 
RSond>ata(3,3) 
RSoncData(4,1) 
RSoncOata(A,2) 
RSond)ata(4,3) 
RSondData(S.I) 
RS«xData(5,2) 
RSoaData(5,3) 


c  ( —  define  amt  parameters  needed  by  models  in  terms  of  inputs. 
RSCalc. Zinv  «  RSOata. zbase 

RSCalc. Thsb  *  SOOata. T10*274. 15 

Tave  ■  RSCalc. Thab-0.0049*RSCalc. Zinv 

RSCalc. fthet  *  RSCalc. Thab/Tave 

RSCalc. Tdelta  ■  SOOata. TIO-SOOata.TSea 


-*•> 


c  { . > 

c  (  I  This  is  an  approximation  to  the  ) 
c  (  l  goff-gatch  formula  which  is  good  ) 
c  {  )  to  1/2  X  error  for  •  to  over  25  deg.  ) 
e  {  i  List  (1968).  ) 
c  ( . > 


Psfc  «  1013.0  K  surface  pressure  in  millibars  ) 

Icpgkg  =  2.46 

Qsfc  *  6. 11 2*EXP( 17. 67* SOOata. TSea/ (SOOata. TSea*243.5)) 
Qsfc  =  622.0*Osfc/(Psfc*Gsfc) 

RSCalc. Qdelta  ■=  SOOata. Qp-Qsfc 

RSCalc. TlOe  «  SOOata. T10*Lcpgkg*S0Oeta.Qp 

RSCalc. We  *  1.0 

RSCalc. Wstr  *  u.001 

end  I  (procedure  AssignftSondeVars) 
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l  \  VXFZf**  procea.ed  djt.  «.  Proves  an 

c  t  «W table  pr— «•  for  the  NOVA*  input  data. 

C{  Celled  by:  MOVAMSRD . FOR  . 

« < . »ijgi'i:"S£ . i'isusi'S. **«* 

‘  ;...  - - - - - 

integer  flag 

real  preanfele(5,S) 
real  rhlZOO) 

real  r*lxing_ratio,teitperr 
charect«r*12  (nfUe.infiof 

te«perr»0.19 

ir*xjt*H 

sof*16 

novaxi»f7 

Inf ile*‘sigf ite'  ,  .... 

open(untt«input,file*infile.status=  old  > 

ope«(tnit«sof ,file*inf*of, status*  old  ) 

read< input,*)  nan 

j*1 

reed(input,*)  P.at.h 
pres(j)*p 
airtCj)«at 
rh( j)  «h 

alt(j)-*ltitude(p) 

pt <  j )»Potent i a l_temperature<  p, at ) 
ar( i)arMixfng  ratiolh.at.p) 
j.j*1 

do  i*2  ,  nun> 

readlinput,*)  p.et.h 
if  (p.LT.presl j-D)  then 
preal j)*P 
ai  rtl j )*«t 
rh(i)  rh 

elt( j)*Altitudelp) 

pt(j)*Potentiel_te<nper«ture<p,at) 

»r(j)«rttixir*g_ratio(h1et,p) 

j*j*1 

endif 

enddo 

T,l\\  non-1  l  (generate  the  gradient  for  each  level) 
deltap*pres( i*1 )-pre$(  i ) 

?f'((ab«(del tap). 07^0^9). AHO-(absldel tat ).CT .teeperr))  then 

gradient i )*deltet/del tap 

else 

gredientl i )*0.0 
endif 
enddo 

I  (get  default  preartole) 

pre«C.le(f.1>*r«n*5 

preantolel2,l)=-W.O  t  (set  default  values) 
preambled,  1)*-999.0 
preafffcle(3,t)*') -0 
preambled,  1 )*• T  .0 


. . . 


purpose:  This  Is  a  program 


««o 

) 

) 

) 

> 

- ) 

> 

> 
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do  i*2  ,  5  l  (Sets  up  a  default  no  data  preamble.) 

<»o  J-2  ,  3 
preamble ki ,  j)« -999.0 

enddo 

- a-«- 

vOQQO 

I'tvO  l  (The  variable  "flag"  determines  ho« 

I  many  inversions  there  are.) 

do  1*1  ,  MUM-2 

I  begin  (looking  for  gradients) 

if  ((gradient(i).LT.O.O)  .and.  (flag  .E8.  0))  then 

prea«dle(2,1)*alt(i)  i  (looking  for  first  inversion) 

prea*ble(2,2)«pt(i) 

preaetole(2,J)«mr(i ) 

flag*)  I  (Flag  remembers  where  we  are  in  getting  values) 
teeplept(i) 

end  if 

if  ((gradient(i).GT.O.O)  .and.  (flag  .EQ.  1))  then 
preanble(3,2)*pt(i) 
preamble(3,3)*mr(i) 
f lag«2 
teep2=pt(i ) 

endi  f 

c  Checking  to  see  if  the  inversion  is  deep  enough  for  a  real  one. 

if((fl*g  .eq.  2)  .and.  ((tenp2- tempi ). It .  1.5))  then 
f lag*0 

preambled,  2)«-999 
preanblel 3 , 3 ) « - 999 
preanble( 2 , 2 ) * - 999 
preambled  ,3)*-999 
preambled,  1  )«*999 

endif 

if  (((gradient(i).U.O.O).  and.  (flag  .EQ.  2)) 

*  .and. (preaable(2, 1).LT.(alt(i)-1Q0)))  then 

preaable(4,1)«alt(f )  !  (looking  for  second  inversion) 

preaadle(4,2)*pt(i) 

preanble(4,3)*«r(i ) 

f  leg«3 

temp3*pt(i) 

endif 

if  ((gradient(i).GT.O.O)  .and.  (flag  .EQ.  3))  then 
preaiible(5,2)*pt(  i ) 
preanble(5,3)*mr(i) 
f lag*4 
temp4*pt(  i ) 
endif 

if  ((flag  .eq.  4)  .and.  ((te«tp4-tenp3)  .It.  1.5))  then 
f lag*2 

preanble(4,1 )*-999 
preerble(4,2)=*999 
prea«dle(4,3)*-999 
preamb  l  e  ( 5 , 2 ) « -  999 
preambled  ,3)=-999 

endif 

enddo 

if  ((fleg.GE.1)  .and.  (preanble(3,2)  .EQ.  -999.0))  then 
Ibegin  (ue  can't  leave  an  imdefined  inversion  cap.) 
pr  canM  e  ( 3 , 2 )  *pt  ( nun- 2 ) 
pr  e  and  l  *  ( 3 , 3 )  *mr  (  nun  -  2 ) 

endif 

if  ((flag.GE.3)  .end.  (preanble(5,2)  .EQ.  -999.0})  then 
Ibegin  (wt  c*.-  i  leave  an  irdefined  inversion  cap.) 
preanble(5,2)*pt  (nu»-2) 
prewble(5.3)=mr(nuir2) 

endif 
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if  ((U.8. GE.3)  .and.  {PreaiTbleC5.2>  .£0.  preai*>lel4,2>>>  then 
I  begin  {we  can't  leave  an  undefined  inversion  cap.) 

preea*)le{5 , 2  J'preawt  l  e(4 , 2  )♦  1 

end  If 

H  ((ftag.GE.S)  .and.  (preartBle(5.3)  .£8.  preaafcl*^  5»)  then 
I  begin  £we  can't  leave  an  undefined  inversion  cap.) 
preaatole<5,J)»prea*>le(4,:>*1 
andlt 

eloaednpuO 

rloaetsof  ) 


EMC  I  preaab 
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